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1. INTRODUCTION 


1. 1 SCOPE OF DOCUMENT 

This document is one of a series of manuals designed to provide the 
information required to operate and maintain the Command and Data 
Acquisition (CDA) equipment of the Trilateration Range and Range Rate 
(TRRR) System, as furnished by Hughes Aircraft Company to the National 
Aeronautics and Space Administration under Contract No. NAS 5-21629. 

The function of each manual is as follows: 

1) Volume I, Command and Data Acquisition (CDA) System Manual 
contains information pertaining to the equipment in the 
Trilateration Range and Range Rate System which is designed to 
interface with existing NASA equipment located at Wallops Island, 
Virginia. 

2) Volume II, Turn-Around Ranging Station (TARS) System Manual 
contains information pertaining to the equipment located in the 
Turn-Around Ranging Station 

1. 2 GENERAL DESCRIPTION OF TRRR SYSTEM 

The Trilateration Range and Range Rate System is described in the 
following paragraphs. 

1.2.1 Physical Description of TRRR System 

The TRRR System consists of three basic units that are physically 
independent of each other. (See Figure 1-1. ) These units are as follows: 

1) The Master Range Station of the Command and Data 
Acquisition (CDA) System for the Synchronous Meteorological 
Satellite (SMS) located in the NASA facility at Wallops Island, 
Virginia 

2) The Turn-Around Ranging Station located at the NASA facility 
at Oahu, Hawaii, designated TARS 1 

3) The Turn-Around Ranging Station located near Santiago, Chile, 
designated TARS 2 
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SMS 



LINK1 - CDA TO SMS TO CDA 

LINK 2 - CDA TO SMS TO TARS 1 TO SMS TO CDA 

LINK 3 - CDA TO SMS TO TARS 2 TO SMS TO CDA 


FIGURE 1-1. TRILATERATION RANGE AND RANGE RATE SYSTEM 


All Master Station (CDA) electronic equipment is located in two 
standard racks within the Operations Area of the NASA facility. All TARS 
electronic equipment is located within a weatherproof shelter, while antennas 
and associated equipment are mounted on. the exterior of the shelter. 

1.2.2 Functional Description of TRRR System 

The TRRR System contains transmitters, receivers, and other equip- 
ment (Tables 1-1 through 1 -3) that provide the capability of simultaneous range and 
range rate information for the SMS. This information, derived fromdata acquired 
from the CDA and the two TARS, is gathered attheCDA for additional analysis. 

In general, the range and range rate information is derived in the 
following manner. (See Figure 1-2.) A ranging signal is developed in the 
CDA and transmitted to the NASA Wallops Island Station modulator and 
upconverter for frequency conversion. This signal is then amplified and 
transmitted to the SMS at the proper frequency and power levels. When the 
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TABLE 1-1. SMS SATELLITE PARAMETERS 


Transmitter power (hard limited), dBm 43.0 

Transmitter feed loss, dB -3.4 

Transmit antenna gain, dB 19. 1 

Transmit off-beam center loss, dB (at 9 degrees) -2. 5 

Transmit off-beam center loss, dB (at 7 degrees) -1.6 

Receive antenna gain, dB 13.4 

Receive feed loss, dB -4. 5 

Receive off-beam center loss, dB (at 9 degrees) -2.8 

Receive off-beam center loss, dB (at 7 degrees) -1.4 

Receive noise temperature (TE = l630 e K), dB/°K 32. 1 

Bandwidth, MHz 8.2 

Polarization loss, dB -0.2 

Antenna polarization Linear 

Local oscillator stability 

Long term, per year 1* 0 x 10 ^ 

Short term, per 1/2 second 1 x 10 

Synchronous orbit, degrees 2 inclined 


signal is received by the satellite, it is automatically downconverted and 
retransmitted through the satellite antennas back to earth to be received at 
the CDA, TARS 1 , and TARS 2. When the signal is received, each TARS 
reacts by transponding a signal, again at the proper frequency and power 
levels, back to the SMS, which again ddwnconverts and retransmits the signal 
back to the CDA. Although they receive the newly transmitted signal, each 
TARS is mechanized to respond only to transmissions initiated at the CDA. 

In addition, sufficient guard bands have been engineered into the system to 
ensure isolation between the TARS. (See Table 1-4. ) 
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TABLE 1-2. CDA STATION PARAMETERS 


Transmitter power, dBm 


48.0 


Transmitter feed loss, dB 


-1.6 


Transmitter antenna gain, dB 


48. 0 


Transmit off-beam center loss 

dB (at 0. 25 degree) 

-1.0 


Receive antenna gain, dB 


48. 0 


Receive off-beam center loss, 

dB (at 0.25 degree) 

-0. 7 


Receive feed loss, dB 


-0.4 


Receive noise temperature (Te 

= 100 e K), dB / ° K 

20. 0 


Polarization loss, dB 


-0. 2 


Transmit frequency, MHz 


2026. 

000 

Receive IF, MHz 


70. 2; 

68.0; 64.0 

Transmit IF, MHz 


66 . 0 



TABLE 1-3. TARS STATION PARAMETERS 


Transmit power, dBm 

46.0 

Transmit loss, dB 

-1.7 

Transmit antenna gain (8 foot diameter), dB 

31.8 

Transmit off-beam center loss, dB (at 2.2 degrees) 

-3. 0 

Transmit frequency, MHz 


TARS 1 

2030. 200 

TARS 2 

2032.200 

Receive antenna gain (8 foot diameter), dB 

30.4 

Receive off-beam center loss, dB (at 2. 2 degrees) 

-2.4 

Receive feed loss, dB 

-0. 7 

Receive noise temperature, dB/° K (630° K) 

28. 0 

Receive frequency, MHz 

1684. 000 

Focal oscillator stability 


Long term, per year 

1 x 10‘ 6 

Short term, per 1/2 second 

2 x 10' 10 

Polarization loss, dB 

-0. 2 
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SMS SPACECRAFT 



FIGURE 1-2. TRRR SIMPLIFIED BLOCK DIAGRAM 
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TABLE 1-4. TRRR RF CARRIER UTILIZATION 


Links 


Frequency, MHz 

CDA Link 

Uplink 

(CDA to SMS) 

2026. 0 

Downlink 

(SMS to CDS) 

1684. 0 

TARS 1 Link 

Uplink 

(CDA to SMS) 

2026. 0 

Downlink 

(SMS to TARS 1) 

1684.0 

Uplink 

(TARS 1 to SMS) 

2030. 2 

Downlink 

(SMS to CDA) 

1688.2 

TARS 2 Link 

Uplink 

(CDA to SMS) 

2026. 0 

Downlink 

(SMS to TARS 2) 

1684. 0 

Uplink 

(TARS 2 to SMS) 

2032.2 

Downlink 

(SMS to CDA) 

1690.2 


On receipt of the transmissions from the TARS, three range/time 
intervals can be measured and stored by a computer at the CDA; 

1) CDA to SMS to CDA 

2) CDA to SMS to TARS 1 to SMS to CDA 

3) CDA to SMS to TARS 2 to SMS to CDA 

By measuring successive range/time intervals, the system is capable 
of resolving range rate information of the SMS in addition lo range. 

Upon receipt of the above data, the CDA assembles the following 
information into a serial data format suitable for transmissions on demand 
over a standard telephone line; 

1) Range/time interval 

2) Range rate 

3) Wallops Island facility antenna azimuth and elevation angle 
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4) Time of year in days, hours, minutes, and seconds 

5) Data source identification (CDA, TARS l, TARS 2, and SMS) 

6) SMS housekeeping telemetry (spacecraft temperature, SMS 
system delay) 

7) CDA delay 

The entire TRRR operation, including spacecraft acquisition, multiple 
data measurement, data multiplexing, and transmission, is designed not to 
exceed 11 minutes with the total spacecraft time allocation for the operation 
not to exceed 10 minutes. 

An orderwire function is provided between the CDA and each TARS to 
ensure a coordinated operation in the event that field alignment or repair of 
TARS is required. 

1. 3 GENERAL DESCRIPTION OF CDA 

The CDA receive band baseband frequencies are listed in Table 1-5, 
and CDA equipment is described in the following paragraph. 

1. 3. 1 Physical Description of CDA Equipment 

The principal units that comprise the CDA are as follows: 

1) Three nominal 70 MHz receiver units 

2) One range unit 

3) One switch unit 

4) One tone modulator 

5) One orderwire unit 

6) Three computing counter units 

7) Three computing counter unit patch panels 

8) One digital computer 

9) One teleprinter unit 

10) One cassette unit 

11) One power supply 

All the above units are mounted in racks equipped with air circulating 
blowers. (See Figure 1-3.) 


1-7 



VOLUME I. CDA SYSTEM MANUAL 




TABLE 1-5. CDA RECEIVE BAND BASEBAND FREQUENCIES 


Tones 

Frequency 

Ranging Tones 

Mode A 

35.4 Hz 

283.4 Hz 

3. 968 kHz 
27.777 kHz 
200.00 kHz 

Mode B 

283.4 Hz 

3.968 kHz 
27. 777 kHz 
200.000 kHz 

Mode C 

3. 968 kHz 
27.777 kHz 
200.000 kHz 

Command Tones 

TARS 1 

2940 Hz 

TARS 2 

3180 Hz 

Orderwire Ringing Tone 

4525 Hz 
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FIGURE 1-3. CDA TERMINAL (PHOTO 4R7083) 
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1.4 EQUIPMENT REQUIRED 

The equipment required in the CDA to conduct the ranging function and 
provide interfacing with the TARS and SMS is described in the following 
paragraph. 

1.4,1 Major Equipment 


Table 1-6 lists the major equipment supplied with the CDA. 
TABLE 1-6. CDA SUPPLIED MAJOR EQUIPMENT 


Equipment 

Manufacturer 

Part Number 

Computing counter (three 
supplied) 

Hewlett-Packard 

Model 5360A 

Computing counter patch panel 
(three supplied) 

Hughes 

3029323 

Computer 

Hewlett-Packard 

Model 2 1 0 0 A 

Teleprinter 

General Electric 

Terminet 3 00 

Power supply 

Acopian 

Model 21PT10 

Order wire unit 

Hughes 

3029309 

Receiver (three supplied) 

Scientific Atlanta 

Model 4 10A 

Switch unit 

Hughes 

3029322 

Range unit 

Hughes 

3029304 

Cassette unit 

DICOM 

Model 344 

Tone modulator 

Hughes 

3029324 

Blower (two supplied) 

McLean 

Model 2E409A 
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2, INSTALLATION 


2. 1 INTRODUCTION 

T*his section provides information designed to illustrate the manner in 
which the Command and Data Acquisition (CDA) equipment is configured for 
ranging operations. This information is provided in the following order; 

1) CDA Trilateration Cable 

Diagram See Figure 2-1 

2) Computer Programming See Section 5, TRRR Software System. 
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COMPUTING 

COUNTER 

MP5360A 

COMPUTING 

COUNTER 

PATCH 

3029323 



RECEIVER 1 
MODEL 410A 
SCIENTIFIC- 
ATLANTA 


RECEIVER 2 
MODEL 410A 
SCIENTIFIC- 
ATLANTA 




2A6 


CASSETTE 

UNIT 

DtCOM 344 



TO TO TIME CODE TO 

DOWNCONVERTER UPCONVERTER GENERATOR MODEM 


5 MHz 
STATION 
STD 


NOAA INTERFACE 


FIGURE 2-1. CDA TR I LATE RATION CABLE DIAGRAM 
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3. OPERATION 


3. 1 INTRODUCTION 

This section provides a description of the location and function of 
each of the controls and indicators that will be used in the normal operation 
of the CDA equipment. In addition, this section provides all procedures 
required for the normal operation of the equipment in the terminal, includ- 
ing equipment preparation for use, power turn-on, and power turn-off. 


3. 2 PREPARATION FOR USE 

No special procedures are required to convert the CDA equipment 
from a standby (or power off) condition to an operational configuration. 


3. 3 LOCATION AND FUNCTION OF CDA CONTROLS AND INDICATORS 

All CDA equipment used in the TRRR System are mounted in either 
of two racks which are Government-furnished equipment (GFE) (See 
Figure 3-1). The location and function of the controls and indicators for 
the commercially available units are contained in the appropriate commer- 
cial handbook included in this series of manuals. The location and function 
of the units unique to the CDA terminal are presented in the following order: 


Unit F igure 


Orderwire unit, Hughes P/N 3029309 3-2 

Switch unit, Hughes P/N 3029322 3-3 

Range unit, Hughes P/N 3029304 3-4 

Tone modulator unit, Hughes P/N 3029324 3-5 


The location and function of controls and indicators on units that are 
not listed above are included in the appropriate commercial manual. 
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ORDERWIRE 

UNIT 

HUGHES 

3029309 


HEWLETT 
PACKARD 
6265 A 

COMPUTING 

COUNTER 


SCIENTIFIC 
ATLANTA 
41 OA 

RECEIVER 1 


COMPUTER 

COUNTER 

PATCH 

PANEL 


SCIENTIFIC 
ATLANTA 
401 A 

RECEIVER 3 


SWITCH 

UNIT 

HUGHES 

3029322 


HEWLETT 

PACKARD 

2100A 

COMPUTER 


RANGE 

UNIT 

HUGHES 

3029304 


TERMINET 

300 

TELEPRINTER 


DICOM TAPE 
READER 


TONE 

MODULATOR 
UNIT HUGHES 
3029324 


ACOPIAN 

POWER 

SUPPLY 




II 

f' w "' 1 

1 

i ■» • 


FIGURE 3-1. CDA EQUIPMENT RACK (PHOTO 4R27084) 


o 


o 
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PANEL ITEM 

DESCRIPTION 

FUNCTION 

1 

RING DOWN 

USED TO SIGNAL TARS 1 AND 2 WHEN ORDERWIRE 
SELECTED ON SWITCH UNIT 

2 

HANDSET 

VOICE TRANSMITTER AND RECEIVER WHEN ORDERWIRE 
SELECTED ON SWITCH UNIT 

3 

ORDERWIRE SIGNALING LIGHT 

PROVIDES VISUAL INDICATION OF TARS TO CDA 
ORDERWIRE SIGNALING 

4 

SIGNALING BUZZER 

PROVIDES AURAL INDICATION OF TARS TO CDA 
ORDERWIRE SIGNALING 

5 

POWER ON/OFF SWITCH AND 
INDICATOR 

PROVIDES CONTROL AND MONITORING OF PRIMARY 
POWER TO UNIT 


FIGURE 3-2. ORDERWIRE UNIT (PHOTO 4R25723) 


l ! 
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PANEL ITEM 

DESCRIPTION 

FUNCTION 

1 

IF SELECT DOWNLINK SWITCH 



COMPUTER 

COMPUTER CONTROLS CONFIGURATION OF 
EQUIPMENT FOR RANGING OR TEST OPERATIONS 


MANUAL-TEST LOOP 

CONFIGURES SYSTEM FOR PROCESSING 1 - f UPLINK 
IN DOWNLINK RECEIVERS FOR CLOSED LOOP TEST 


MANUAL-RECEIVER ANTENNA 

DOWNLINK RECEIVERS PROVIDED • - f SIGNALS FROM 
STATION DOWNCONVERTERS FOR NORMAL 
OPERATIONS 

2 

IF SELECT UPLINK SWITCH 



COMPUTER 

COMPUTER CONTROLS SELECTION OF RANGE TONES 
TO UPCONVERTER 


MANUAL RANGE TONE 

SELECTS RANGE TONE OPERATION 


MANUAL OVERWIRE 

SELECTS ORDERWIRE OPERATION 

3 

ON/OFF 24 vdc 

CONTROLS AND MONITORS APPLICATION OF PRIME 
POWER TO UNIT 


FIGURE 3-3. SWITCH UNIT ( PHOTO 4R27062) 


REPRODUCIBILITY OF l 
OIvIGCNAL PAGE IE FOC A 
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RANGE TONE PROCESSOR 


%>■ . 


TONE SELECT (HZ) 




MOOE C 
MOOE B 
MOOE A 






DESCRIPTION 

FUNCTION 

TONE CONTROL 

SELECT MANUAL OR 
COMPUTER CONTROLLED MODE 

CARRIER ONLY SWITCH 

DELETES ALL MODULATION ON 
THE CARRIER. USEFUL FOR 
LOCKUP OF THE SCIENTIFIC 
ATLANTA RECEIVERS 

POWER ON 

CONTROLS APPLICATION OF 
POWER TO RANGE UNIT 

TONE SELECT 

MANUALLY ENABLES WHICH TONE 
IS MODULATED ON CARRIER 


FIGURE 3 4. RANGE UNIT (PHOTO 75 35080) 
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PANEL ITEM 

DESCRIPTION 

FUNCTION 

1 

IF ATTENUATOR 

PROVIDES SELECTION OF FROM 0 TO 41 dB 
TO ATTENUATE i • f SIGNAL TO 
UPCONVERTER 

2 

COMMAND TONE 



COMPUTER 

COMPUTER CONTROLS TRANSMISSION OF 
RANGING COMMAND TONES TO TARS 1 
AND TARS 2 


MANUAL TARS 1/TARS 2 

PROVIDES THE MANUAL CONTROL OF 
TRANSMISSION OF COMMAND TONE TO 
TARS 1 AND TARS 2 

3 

ON/OFF ♦ 24 vdc 

CONTROLS AND MONITORS THE 
APPLICATION OF PRIME POWER TO UNIT 


FIGURE 3-5. TONE MODULATOR UNIT (PHOTO 4R27063) 
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3.4 POWER TURN-ON 

Ail electrical power to the units in the CDA is supplied and 
controlled by GFE functions. Other than setting all switches to ON, no 
special procedural instructions are required for applying power to any of 
the units in the CDA terminal. 


3. 5 SYSTEM OPERATION 

The CDA terminal equipment can be configured for three basic 
modes of operation. 

1) Ranging operations 

2) Orderwire operation 

3) System testing 

The procedures to be used for each of these functions are contained 
in the following paragraphs. 

3. 5. 1 Ranging Operations 

Ranging operations can be conducted automatically by addressing 
the HP 2100A computer through the Terminet teleprinter. The procedures 
for automatic ranging operations, including range link selection and range 
tone mode selection, are presented in the following order: 

1) Range Link Manual Selection Paragraph 3.5. 1. 1 

2) Range Tone Mode Selection Paragraph 3.5. 1.2 

3) Automatic Ranging Operations Paragraph 3.5. 1.3 

3. 5. 1, 1 Range Link Manual Selection 

To manually select the range link, perform the following: 

1) On the receivers 1 through 3, set frequency select switch to 
FREQ 1, FREQ 2, and FREQ 3, respectively. With this selec- 
tion, tune receiver 1 to 64 MHz IF for CDA /CDA operation, 
tune receiver 2 to 68. 2 MHz IF for CDA /TARS 1 operation, 
and tune receiver 3 to 70. 2 MHz IF for CDA/TARS 2 operation. 

2) Set the switches on receivers 1 through 3 to the following 
positions: 

Response AC 

Bandwidth BYPASS 

AGC To 1 SEC 
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Second local oscillator mode 

Wideband phase demodulator mode 

Bandwidth, Hz 

Phase lock loop 

IF filter 

Volume 


VFO 
PM 
100 
LONG 
500 MHz 

To maximum CW 
position 


3) Set second local oscillator mode switch to APC. Receivers are 
now tuned for automatic phase control operation. 

4) On switch unit, set switches to the following positions: 

IF select downlink RCV ANT 

IF select uplink RANGE TONES 

Receivers are now prepared to receive IF Inputs from the 
NASA Station equipment downconverters. 

5) On tone modulator unit, set command tone switch to MANUAL 
and momentarily press TARS 1 or 2 in accordance with desired 
range link operation. The appropriate receiver phase lock loop 
light indicates when receiver is locked to the IF signal. If the 
IF is not locked, proceed with the following. 

6) Push and tune FINE TUNE control until a low frequency note 
is heard from the receiver speaker. 

Note 

If no beat note is heard, the IF signal is out of the 
tuning range of the loop. Set second local oscillator 
mode switch to VFO and repeat steps 3, 4, and 5. 

7) Continue tuning FINE TUNE control until loop locks and 
phase lock loop indicator lights. With loop locked, tuning 
meter reads approximately zero. To continue ranging 
operations, continue to paragraph 3. 5. 1. 2. 

3. 5. 1. 2 Range Tone Mode Selection 

To manually select a range mode, perform the following; 

1) On the range unit, set transmit mode select switch to mode A, 
B, or C in accordance with the desired transmit tone frequency 
and modulation index as follows; 



Frequency 

Modulation Indes 

Mode A 

200.00 kHz 

1.5 


27.777 kHz 

1.5 


3.968 kHz 

1.5 


283.4 Hz 

1.5 


35.46 Hz 

0.8 
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Frequency 


Modulation Index 


Mode B 

200.000 

kHz 

1.5 


27. 777 

kHz 

1.5 


3.968 

kHz 

1.5 


283.4 

Hz 

1.5 

Mode C 

200. 000 

kHz 

1.5 


27. 777 

kHz 

1.5 


3. 968 

kHz 

1.5 


2) Set transmit tone select switches such that only the applicable 
frequency lamps are lighted as determined in step 1. 

3) Set reference tone select switch to the range tone frequency to be 
processed in accordance with the mode selection as set in step 1. 
The range unit is prepared to transmit and detect selected range 
tones. 

3 . 5 . 1 . 3 Automatic Ranging Operations 

To perform automatic ranging operations, using the HP 2100 computer, 
perform the following: 

1) Configure the CDA units as shown in Table 3-1. 

2) Proceed with computer operations as shown in Table 3-2 for 
automatic ranging operations as required. Additional computer 
operations are provided in Table 3-3. 

3.5.2 Orderwire Operations 

In order to utilize the orderwire, the CDA ranging equipment must be 
configured as described in the following paragraphs. 

3. 5. 2.1 Scientific -Atlanta Receiver for TARS 1 

This receiver is the second receiver down from the top of the equip- 
ment rack and shall be set as follows: 


1) Demodulator select to FM demod 

2) IM filter to 12 kHz 
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3) FM demodulator to 20 kHz 

4) Frequency select to frequency 2 or 3 

(Note: Frequency 2 when desired communication to TARS 

1, frequency 3 for TARS 2. ) 

3. 5. 2. 2 Switch Unit 

The switch unit shall be set as follows: 

1) IF select uplink to orderwire 

2) IF select downlink to range tone 

3. 5. 2. 3 Procedure 

After configuring the system for orderwire operation, push the 
ring down button on orderwire unit and pick up the telephone receiver. The 
ring (4525 Hz) will be heard at both TARS. Personnel at the TARS must 
configure their system for orderwire in order to respond. 

3. 5. 2. 4 Command Modulator 

There are two phase modulators in the CDA equipment rack. One 
modulator is used for the orderwire ring down and command signals to the 
TARS. The other modulator, located in the tone modulator unit, is used to 
impose the ranging tone on the carrier. 

3.6 POWER SHUTDOWN 

No formal equipment shutdown procedures are required. 
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TABLE 3-1. CDA EQUIPMENT OPERATIONAL CONFIGURATION 
(AUTOMATIC RANGING OPERATIONS) 


Range Unit 

Tone control 

Comp 

Tone Modulator 

On/Off 

ON 

Command tone 

CMPTR 

Switch Unit 

On/Off 

ON 

IF select downlink 

CMPTR 

IF select uplink 

CMPTR 

SA Model 410A Receiver 1 and 3 

Level 

As required 

Response 

AC 

Bandwidth 

BYPASS 

Volume 

As required 

AGC To 

1 SEC 

Second local oscillator 

A PC 

mode 1 

Second local oscillator 

As required 

tuning 

Wideband phase demodulator 

Mode 

PM 

Bandwidth, Hz 

100 

Loop 

LONG 

Phase lock light 

ON 

500 kHz IF filter 

ON 

Frequency select 

As required 

SA Model 410A Receiver 2 

Level 

As required 

Response 

AC 

Bandwidth 

BYPASS 

Volume 

As required 

AGC To 

1 SEC 

Second local oscillator 

APC 

mode i 

Second local oscillator 

As required 

tuning 
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Table 3-1 (continued) 


Wideband phase demodulator 


Mode 

PM 

Bandwidth, Hz 

100 

Loop 

LONG 

Phase lock light 

ON 

12 kHz IF filter 

OFF 

500 kHz IF filter 

ON 

Frequency select 

As required 

HP 5360A Computing Counter 

A rm/ count/compute/ display 

FAST 

Cycle rate 

HOLD 

Digits displayed 

10 

Clear reset/ self-check/e tc. 

EXT 

Measurement time 

3 

Multiplier 

100 ms 

HP 5365A Input Module 

Function 

PERIOD 

Input 

A 

Preset (A) 

Approximately 60% CW 

Preset (B) 

OFF (full CCW) 

Sensitivity multiplier (black) 

XI 

Sensitivity multiplier (red) 

Not used 

DC/AC 

AC 

HP 5379A Time Interval Module 

Slope (Tl) 

♦ 

Slope ( T2) 

♦ 

A rming 

AUTC/ + T 

Tl (black) 

XI 

Level 

IK 

T2 (black) 

XI 

AC/ DC (Tl) 

AC 

DC / AC ( T2) 

AC 

Sep/ Com 

SEP 

Patching Requirements 

Computing counter patch panel REF TONE to A INPUT on 

HP 536 5 A; 

Computing counter patch panel REF TONE to Tl INPUT on 

HP 53 79 A; 

Computing counter patch panel RCV TONE to T2 INPUT on 

HP 53 79 A; 

Computing counter patch panel 

multipin connector to 

multipin connector on HP 5379A. 
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TABLE 3-2. TRRR RANGE PROCEDURE 


1. Operator types in run command: R, N, A. N number of minutes of 
ranging (1 to 15) and A = range mode (which can be either A, B, or 
C). Then computer program proceeds as follows: 

Loop Calibration (Mode A) 

2. Command both'TARS ON 

3. Switch all receivers to 66 MHz IF 

4. Switch receive signal to loop calibration 

5. Receive 200 kHz tone 

6. Computer responds with !, Lockup? n 

7. Operator checks or tunes receivers for lockup and types n OK n on 
teletype 

8. Transmit 20 0 kHz tone 

9. Software program hesitates 3 seconds before count begins 

10. Count 100 axis crossings of the 200 kHz tone 

11. Receive 27. 7 kHz 

12. Software program hesitates 3 seconds 

13. Count 1000 axis crossings of 27. 7 kHz 

14. Receive 3.98 kHz 

15. Wait 3 seconds before count begins 

16. Count 1000 axis crossings of 3. 98 kHz 

17. Receive 283 Hz 

18. Wait 3 seconds before count begins 

19. Count 1000 axis crossings of 283 Hz tone 

20. Receive 35. 5 Hz tone 

21. Wait 3 seconds before count begins 

22. Count 100 axis crossing of 35. 5 Hz tone 

Ambiguity Removal 

23. Switch receiver 1 to 63 MHz, receiver 2 to 68. 2 MHz/ receiver 
3 to 70. 2 MHz 

24. Switch receive signal from loop to receive antenna 

25. Computer responds with "Lockup? 11 
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Table 3-2 (continued) 

26. Operator checks or tunes receiver for lockup and types n OK n on 
te Le type 

27. Receive 35,5 Hz tone 

28. Wait 3 seconds before count begins 

29. Count 100 axis crossings of the 35.5 Hz tone 

30. Receive 283 Hz tone 

31. Wait 3 seconds before countbegins 

32. Count 1000 axis crossings of the 283 Hz tone 

33. Receive 3.98 kHz tone 

34. Wait 3 seconds before count begins 

35. Count 1000 axis crossings of the 3. 98 kHz tone 

36. Receive 27. 7 kHz tone 

37. Wait 3 seconds before countbegins 

38. Count 1000 axis crossings of 27. 7 kHz tone 

Ranging 

39. Record next 1 second mark via the time code generator from which 
all timing signals shall be measured 

40. Receive 200 kHz tone 

41. Wait 3 seconds before count begins 

42. Count 3000 axis cros sings :o'f the 200 kHz tone 

Endpoint Check 

43. Receive 27. 7 kHz tone 

44. Wait 3 seconds before count begins 

45. Count 1000 axis crossings of 27. 7 kHz tone 

46. Receive 3. 98 kHz tone 

47. Wait 3 seconds before countbegins 

48. Count 1000 axis crossings of 3. 98 kHz tone 

49. Receive 283 Hz tone 

50. Wait 3 seconds before count begins 

51. Count 1000 axis cros sings of 283 Hz tone 
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Table 3-2 (continued) 


52. Receive 35. 5 Hz tone 

53. Wait 3 seconds before count begins 

54. Count 100 axis crossings of 35.5 Hz tone 

55. Command both TARS OFF 

56. Ranging complete 

57. If operator desires transmission of data to Suitiand, type *M on the 
te le type 

58. Before or after transmission, operator can command data output to 
teletype by typing E,N and carriage return (where N = number of 
range points to skip during printout). All points are one-way ranges. 

NOTE 

Ranging with mode C is identical to that with 
mode A except the 35. 5 and 283. 3 Hz tones 
are not utilized. Mode B is identical to that 
with mode A except the 35.5 Hz tone is not 
utilized. 
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TABLE 3-3. TELEPRINTER INPUT DEFINITION 


1. There are eight input commands available using the teleprinter. To 
begin operation: Load Address Z (press P, clear , SW 1 of Display 

Register, S). Press internal preset, external present, then press 
RUN. The teleprinter will respond with: 

Time: DDD HH:MM:SS:Y Where: DDD = day 

HH = hours 
MM = minute 
SS = second 
Y = year 

If this does not occur, verify hardware and begin again. 

Z. Data can now be input as at any time after the teleprinter, has 
responded: 


3. The commands available are; 

R, N, MODE "RUN" 

Where: N = number of minutes to 

range (from 1 to 15) 

Mode = A , B , C 

ex: R, 10, B causes 

operation to begin 
and range for 
10 minutes 

S, V, VALUE "SET" 

Where: V = variable 

Value - decimal number 

ex: S, TEMP, 128,0 

causes ’’TEMP" to 
be set to 1Z8. 0 

S, ALLX causes all 

variables to be set to 0 

D, V "DUMP 

Where: V = variable 

ex: D, SPCN causes spacecraft number 
to be displayed on teleprinter 
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Table 3-3 (continued) 



D, ALLX causes all data to 
be displayed 

*A 

"ABORT” 

Causes ranging to cease, accompanied 
by automatic return to start 

*r* 'i' 

Same as *A 

*M 

"MODEM" 

Causes computer to output all range 
data over modem 

OK 

"RESPONSE" operator must respond 
"OK" or *A to computer generated 
"LOCK-UP" 

E, N 

"ERUPT" 

Where: N = number of points to skip 

ex: E, 10 causes every tenth range 
point to be printed on teleprinter 
"ERUPT" may only be commanded 
after ranging has completed and 
teleprinter has displayed: "RANGING 

COMPLETE". All points are "ONE 
WAY" ranges. 

Y, XX 

Input Year 

SI, X 

SYSTEM 1 

Where: X = number of links 

X = 1: CDA only 
X = 2: CDA, TARS 1 only 
X = 3: CDA, TARS 1 and TARS 2 

I, XX 

INITIALIZE MODEM BUFFER 
Where: XX = number in each 8 bit 
word for modern test; 
if r XX f is not typed , 
buffer will be set- to I, 
2, 3, . . . 17, 0 . . . 

T, X 

MODEM TEST 

Where: X = number of consecutive 

executions 

C, X 

Set culling number 

Where: X = number of nanosecond s 

between ranges allowed 
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Table 3-3 (continued) 


4. 

Variables identified in "SET 

M and "DUMP 11 functions are four letters 


long, as follows: (All range 

estimates are M one 

way' 1 range ) 


TEMP 

3 digit temperature of spacecraft 


RECD 

Range estimate 

in meters CDA 


RET 1 

Range estimate 

in meters TARS 1 


RET 2 

Range estimate 

in meters TARS 2 


SPCN 

Spacecraft number (1 digit) 


IDT 1 

TARS 1 35 Hz 

Fixed delay 


2DT 1 

TARS 1 283 Hz 

Fixed delay 


3D T 1 

TARS 13.9 kHz 

Fixed delay 


4DT1 

TARS 1 27 kHz 

Fixed delay 


5DT 1 

TARS 1 200 kHz 

Fixed delay 


1DT2 

TARS 2 35 Hz 

Fixed delay 


2DT2 

TARS 2 283 Hz 

Fixed delay 


3DT2 

TARS 2 3. 9 kHz 

Fixed delay 


4DT2 

TARS 2 27 kHz 

Fixed delay 


5DT2 

TARS 2 200 kHz 

Fixed delay 


1DSP 

SPACECRAFT 35 Hz Fixed delay 


2DSP 

SPACECRAFT 283 Hz Fixed delay 


3DSP 

SPACECRAFT 3 

. 9 kHz Fixed delay 


4DSP 

SPACECRAFT 27 kHz Fixed delay 


5DSP 

SPACECRAFT 200 kHz Fixed delay 


1DTR 

TRANSMITTER 

35 Hz Fixed delay 


2DTR 

TRANSMITTER 283 Hz Fixed delay 


3DTR 

TRANSMITTER 3.9 kHz Fixed delay 


4DTR 

TRANSMITTER 27 kHz Fixed delay 


5DTR 

TRANSMITTER 200 kHz Fixed delay 


3-18 




VOLUME I. CDA SYSTEM MANUAL 


Table 3-3 (continued) 

5. Data has been accepted if teleprinter responds: 


Check and resubmit data if teleprinter responds: 


ERROR 
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4. THEORY OF OPERATION 


4 . 1 INTRODUCTION 

This section provides a concise description of the principles of 
operation of the Master Range Station of the CDA equipment as a system and 
supplies the operating principles of units that are unique to the terminal. 

The principles of operation of units that are commercially available can be 
located in the appropriate document within this series of manuals. 

The order in which the information is presented in this section is as 

follows: 

1) Functional Description of CDA Equipment Paragraph 4. 2 

2) Unit Operation Paragraph 4 . 3 

Information pertaining to the TARS equipment may be found in 
Volume II of this series of manuals. 

4. 2 FUNCTIONAL DESCRIPTION OF CDA EQUIPMENT 

The CDA equipment is designed to perform five functions in the 
TRRR System of operations. These functions are as follows: 

1) Range tone generation and modulation 

2) Range tone reception and demodulation 

3) Phase Determination of range tones with respect to 
a reference tone 

4) Command tone generation 

5) Orderwire 

6) Computer operations 

These functions are described in the following paragraphs and 
shown in Figure 4-1. 


4-1 



VOLUME I. CDA SYSTEM MANUAL 


4.2.1 Range Tone Generation and Modulation 

The CDA contains baseband equipfnent that enables the extremely 
accurate satellite ranging information to approximately 1 foot and extremely 
accurate rate of change of range information to approximately 4 x 10“5 mps. 

In order to accomplish this function, the NASA station S band transmitting 
equipment is provided with ranging signals, or tones that are used to modu- 
late the S band carrier frequency. These tones are generated in the range 
unit in the CDA, converted to the 66 MHz IF level and supplied to the NASA 
station upconverters and high power amplifiers for transmission to the SMS. 
These signals are transponded by the satellite and directed back to earth at 
a lower S band frequency. When the transponded signals are received at 
the CDA, they are compared in phase to a reference tone. The computer 
then determines the satellite range information from these data. Range rate 
information is derived from successive sampling of range data during 
measured time periods. 

Prior to initiating any ranging operations, satellite range ambiguities 
must be nulled out. This is accomplished in the CDA by generating five 
ranging tones that are assembled into three operational modes. Note that 
the satellite range uncertainty is limited to one-quarter of the wavelength of 
the frequency selected. For example, the wavelength of the 200 kHz tone 
is 1.5 x 103 meters. As the range uncertainty must be within one-quarter 
of this value, the 200 kHz tone cannot be used if the range uncertainty is 
greater that 375 meters and the 35.46 Hz tone cannot be used if the range 
uncertainty is greater than 2. 11 x 10 & meters. 

The operational modes available including the tone frequencies and 
their allowable range uncertainties are provided in the appendix. 

4. 2. 2 Range Tone Reception and Demodulation 

The CDA contains three receivers which detect the range tones 
received from the signals transponded from the SMS satellite, TARS 1, and 
TARS 2. These signals are received at IF frequencies from the NASA 
station downconverte r, demodulated in the receiver units, and applied to 
the range unit for range tone detection. After the range tones are detected, 
they are supplied to the computer counter for range analysis. 

4. 2. 3 Command Tone Generation 

Each TARS is mechanized to operate upon receipt of command tones 
generated in the CDA tone modulator unit and transmitted through the SMS 
satellite to each TARS. Two command tone oscillators are provided in the 
CDA/ one for each TARS. When the command tone receiver in the TARS 
detects the frequency as signed to it, the transponding function of that TARS 
is enabled. The reception of a second command tone disables the tran- 
sponding function. Thus, the transponding function of the TARS is remotely 
controlled by successive transmissions of command tones from the CDA. The 
range equipment has a switch which indicates System I or System II. System I 
refers to command tones for the ascension and Chile TARS, while System II 
is for the Hawaii and Seattle TARS. 
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4.2.4 Orderwire Operations 


Orderwire equipment is provided at the CDA to ensure coordinated 
operation between the CDA and each TARS. Switch functions are provided 
to enable the selection of either ranging operations or orderwire operations 
on the switch unit. 


4.2.5 Computer Operations 

The computer provides the capability of automatic ranging operations 
as well as range assessment from received data. When used in conjunction 
with the teleprinter unit, the computer can be programmed to store, as 
well as print out, processed data as required. 

The computing counter is also required to limit the processing of 
selected tones. The range unit generates and sums all range tones within 
the mode selected on transmit tone select switch SI. However, only the 
tone selected on reference tone select switch S2 is processed. When selected, 
the reference tone is applied to the desired computing counter through an 
associated patch panel. The computing counter uses the reference tone to 
count the number of cycles transmitted to the SMS. When the count reaches 
a preselected number, a disabling signal is generated to stop the range 
determination process. Note that the computing counter is limited to four 
count selections; 10, 100, 1000, and 10000. In general, the count time 
allotted for each tone is based on practical considerations. For this reason, 
the count allocation for each tone, including computer time, is as follows; 


200 kHz 
27.77 kHz 
3.968 kHz 
283.4 Hz 
35.46 Hz 


3000 counts (3 
1000 counts 
1000 counts 
100 counts 
100 counts 


sets of 1000) 


~ 2. 5 seconds 
~ l . 0 second 
~ 1 . 0 second 
~0.35 second 
-3.0 seconds 


In processing the 200 kHz tone, the counts are taken in three sets 
of 1000, each set is processed, and the results of the analysis of each set 
averaged. 


Each of the counts of each of the tones is compared in phase relation- 
ship with the reference tones generated in the range unit. The phase 
difference between the received tone and the reference tone is equated into 
time. The time functions for each of the counts are averaged by the com- 
puter and the average time for the count set is finally equated to distance. 
When successive count sets are computed, range rates can be determined. 
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FIGURE 4-2. ORDERWIRE UNIT FUNCTIONAL BLOCK DIAGRAM 
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4.3 UNIT OPERATION 

The theory of operation of the units of the CDA that have been 
fabricated or modified by Hughes is presented in the following paragraphs in 
the following order: 


1) 

Orderwire Unit (P/N 3029309) 

Paragraph 4.3.1 

2) 

Switch Unit (P/N 302932-2) 

Paragraph 4.3.2 

3) 

Range Unit (P/N 3029304) 

Paragraph 4.3.3 

4) 

Tone Modulator Unit (P/N 3029324) 

Paragraph 4.3.4 

For 

the theory of operation of commercial 

units, refer to the appro 


priate document as listed in Table 1-9. 

4.3. 1 Orderwire Unit Theory of Operation 

The orderwire unit, Hughes P/N 3029309, contains the elements 
required to conduct orderwire operations and the signal generators required 
to enable and disable the TARS transmitting equipment; (See Figure 4-2. ) 
Audio frequency signals from the FM demodulator in the Scientific Atlanta 
Model 410A receiver are applied to connector J3 of the orderwire unit. The 
orderwire ranging tone of 4525 Hz is detected in the Datatone orderwire 
receiver RX1 to actuate relay Kl. When relay K1 operates, 24 vdc is 
applied to the orderwire signal light II and through register R7 to the order- 
wire buzzer Bl. Voice communication is direct from J3 to the handset 
earpiece. 

Four audio frequency signals are generated in the orderwire unit for 
transmission through the SMS to the TARS: voice, orderwire ringing, and 

the command tones for each of the TARS. When ringdown switch S2 is 
pressed, the Datatone transmitter TX1 generates a 4525 Hz ringing tone 
which is applied through resistor R2 and summing amplifier A1 to the order- 
wire phase modulator Ml for conversion to a 5.5 MHz IF by 5.5 MHz oscil- 
lator Yl. The voice and command tone transmitters are similarly 
processed; however, the TARS 1 Datatone transmitter TX2 which has an 
output of 2940 Hz and the TARS 2 Datatone transmitter TX3 which has an 
output of 3180 Hz can be applied to the orderwire modulator by momentarily 
pressing a push switch on the tone modulator unit. TARS 3 and 4 have the 
following command tones, 3625 and 3925 Hz, respectively. 

4.3.2 Switch Unit Theory of Operation 

The switch unit, Hughes P/N 3029322, is the interface between the 
computer and the various relays that perform the following functions: 

1) selection and assignment of IF frequencies to each receiver in the CDA, 

2) configuring the CDA for ranging, test, or orderwire operation, and 

3) configuring computer range data for telephone line transmission. The 
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detailed operation of each of the above functions is provided below in the 
following order: 

1) Modem Interface Section 

2) Receiver Antenna/Test Loop/ Com- 
puter Select Switch 2 Operation 

3) Range Tone/Orderwir e/Computer 
Select Switch S3 Operation 

4) TARS Command Tone Interface 
Function 

5) Receiver Frequency Assignment 
Function 

6) Computer Selected Count Period 
Function 

4. 3.2.1 Modem Interface Section 

The function of the modem interface section of the switch unit is to 
configure the data stream generated in the computer into a bit rate compati- 
ble with telephone transmission lines. (See Figure 4-3.) The 8 bit data 
stream from the computer is applied from connector J7 through buffers 
IC3 and IC4 and loaded onto a register in 8 bit parallel to serial converter 
IC7. The serial bit rate output of the converter is determined by clock 
pulses from either of two sources; a modem clock from the Bell 201B 
system (GFE) or a CDA-generated clock pulse. The selection of either of 
these sources is controlled by switch S4 located on the interior of the 
switch unit. 

When switch St is set to EXT, clock pulses are applied to IC7 
through IC2 at a 2400 bps rate. When switch S4 is set to INT, clock pulses 
are generated by a 1 MHz tone from computer counter 3, which is converted 
from sinusoidal to square wave pattern by ICS and divided by 10 in IC6 to 
form clock pulses at a 100 kHz rate. A i 64 circuit in IC7 is enabled to 
convert the 100 kHz input to form the 1625 Hz clock pulse rate used for the 
parallel to serial conversion. 

After the parallel to serial conversion, two signals are provided as 
outputs from IC7; one output is made available to GFE modems, while the 
remaining signal is provided to the computer for signal processing 'status 
functions. Transistors Q1 and Q2 provide signal amplification, while IC1 
provides signal buffering. 


Paragraph 4.3.2. I 
Paragraph 4. 3. 2. 2 
Paragraph 4. 3.2.3 
Paragraph 4. 3. 2. 4 
Paragraph 4. 3. 2. 5 
Paragraph 4. 3. 2. 6 
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4.3. 2. 2 Receiver Antenna/Test Loop/ Computer Select Switch S2 Operation 

The function of switch S2 is to configure the CDA for test or ranging 
operations. (See Figure 4-4.) When switch S2 is set to RCV ANT, 24 vdc 
is applied to position 2 of RF switch S3 in the tone modulator unit to connect 
the input to the CDA receivers to the NASA Station downconverter for normal 
operations; when the test loop is selected On switch S2, the 24 vdc power is 
applied through a relay in the switch unit to RF switch S3 to position 1 to 
connect the output of the tone modulator unit directly to each CDA receiver 
for closed loop testing. When CMPTR is selected on switch S2, normal and 
test operations are determined by computer programming. 

4.3. 2. 3 Range Tone/Orderwir e/Co mputer Select Switch S3 Operation 

The function of switch S3 is to configure the CDA for ranging opera- 
tions or for orderwire operations. (See Figure 4-5.) When the range tone 
is selected on switch S3, 24 vdc is applied to position 2 of RF switch S2 in 
the tone modulator unit to connect the output of the range unit to the NASA 
Station upconverter during normal ranging operations; when the orderwire 
is selected, the position 1 relay of RF switch S2 is operated to connect the 
orderwire output to the NASA Station upconverter. When the computer is 
selected on switch S3, ranging operations are determined by computer 
operations . 

4 . 3 . 2 . 4 TARS Command Tone Interface Function 

The TARS 1 and 2 command tones are interfaced in the switch unit 
when the computer is selected on switch S4 in the tone modulator unit. (See 
Figure 4-6.) When the CDA computer provides a ground signal to JO -16, 
a ground return signal is applied from the switch unit through command tone 
switch S4 in the tone modulator to the TARS 1 and 2 command tone generator 
functions in the orderwire unit. Note that in the computer mode of opera- 
tion, the TARS are commanded simultaneously. 

4.3. 2.5 Receiver Frequency Assignment Function 

The switch unit contains circuitry to enable assignment of the 
detection of a specific IF frequency to each CDA receiver. The IF frequency 
assignment can be manually selected or remotely controlled from the CDA 
computer by setting a switch on the RF tuner section of the receiver in 
accordance with the placard mounted on the CDA rack above the receivers. 
(See Scientific Atlanta Instruction Manual for Model 410/70 MHz basic 
receiver unit.) When the RF tuner switch is set to REMOTE, the computer 
applies a signal to the relay functions in the switch unit which, in turn, 
supplies a ground connection to the appropriate relay in the RF tuner for 
correct frequency assignment. (See Figure 4-7 . ) Note that the difference 
in frequency assignments for each receiver is to enable the correct IF 
frequency detection for each of the modes of operation of the TRRR System 
including tests. (See Table 4-1* ) 
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FIGURE 4-6. TARS COMMAND TONE INTERFACE 
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TABLE 4-1. CDA RECEIVER FREQUENCY ASSIGNMENTS 


R eceiver 

Tuner 

Switch 

Position 

F unction 

Frequency, 

MHz 


1 

CDA 

64. 0 

i 

2 

Loop 

66.0 


3 

- 

70. 0 


REMOTE-'!' 

CDA 

64.0 


1 

Loop 

66. 0 

2 

2 

TARS 1 

68.2 


3 ! 

TARS 2 

70. 2 


REMOTE* 

1 

TARS 1 

68.2 


1 

Loop 

66.0 

3 

2 

TARS 1 

68.2 

1 

3 

TARS 2 

70. 2 



REMOTE* 

TARS 2 

70. 2 


^'Computer controlled. 


4. 3. 2. 6 Computer -Selected Count Period Function 

The CDA computer counters HP 5360A contain a modified time 
interval counter HP 5379A which provides the means for selecting any of 
five count time periods from either the counter TI (time interval) average 
switch or from the CDA computer. Five time interval counts are available 
from the computer counter: 1, 10, 100, 1000, and 10000. In order to 
select the time interval count from the computer, the multipin connector 
must be connected between the computing counter patch panel to the 
HP 5379A time interval module. 

Each time interval is determined by a control circuit that has five 
control line inputs. When a specific time interval count is desired, a 
ground is applied to all other control lines; the control line for the desired 
time intervai count remains ungrounded. 

The multipin connector applies the ground connections from the 
switch unit and computing counter to the time interval module when the 
computer applies the appropriate relay actuating signals to the computer- 
selected count period function in the switch unit. (See Figure 4-8.) 
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4. 3. 3 Range Unit Theory of Operation 

The range unit, Hughes P/N 3029322, has the capability of performing 
two basic functions in the CDA; the generation and distribution of range 
tones, and the detection of range tones from each of the CDA receivers, A LI 
range unit operations can be performed either semiautomaticaLly from front 
panel controls, or automatically during computer operations. (See 
Figure 4-9. ) All internal operations in either mode are identical with the 
exception of front panel switch selections. 

The range tone generation and distribution are accomplished in the 
following manner. Five basic range tones are generated and distributed 
in any of three combination modes, A, B, or C in either a manual or auto- 
matic mode from mode select switch SI. (See Figure 4-10. ) Each range 
tone selection is applied through appropriate output relays to a summing 
amplifier for ultimate application to the NASA Station transmitting section. 
The inputs and outputs of each of these modes are isolated through relays 
that are controlled by signals applied through transmit mode select switch 
SI. The basic difference between each of the frequency sections is the 
output level, controlled by individual potentiometers , which is selected to 
ensure that the output to the tone modulator produces the correct modulation 
index. 


Range tone generation is accomplished from a 5 MHz source from 
either an internal oscillator or an external standard. The 5 MHz signal is 
applied to frequency dividers that provide the tone frequencies to the range 
unit transmit tone and reference tone select functions. 

Three receive tone sections are provided that detect the individual 
range tone frequencies from each of the CDA receivers. In general, the 
sections are identical, each having five subsections, each subsection 
required for the detection of each of the ranging tones. Although each 
section is connected to a specific receiver, each receiver can be assigned to 
a specific function. 

The detailed theory of operation of each of the above functions is 
supplied in the following paragraphs. 

4. 3. 3. 1 Range Tone Frequency Gene ration ( Figu re 4-11) 

The tones used for ranging operations are generated in the range unit 
by dividing a 5 MHz signal developed either internally or from an external 
source. Counter 1 divides the signal by five to develop a 1 MHz tone. This 
tone is applied to counter 3 directly and to counter 2 through relay Kl. When 
mode B is selected, relay Kl actuates to apply the 1 MHz signal to counter 2 
which divides the signal by five to develop the 200 kHz tone used during 
mode B ranging. The 200 kHz tone is then filtered and applied to the 
200 kHz transmit tone select logic function and distributed as a reference 
tone to the computer. 
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The 1 MHz signal applied to counter 3 is divided by six with the 
resultant signal also divided by six in counter 4. The 27. 77 kHz signal thus 
obtained is applied to counter 5 for additional processing and to a 27. 77 kHz 
filter for further distribution in the 27. 77 kHz transmit tone logic section 
and as a reference tone to the computer. 

The 27. 77 kHz signal applied to counter 6 is divided by 14 to develop 
a 283. 4 Hz signal which is applied to counter 7 for additional processing 
and to a 283. 4 Hz filter for distribution to the computer as a reference tone, 
to the 283. 4 Hz transmit tone select logic function and as an additional 
element in the processing of the 35. 4 Hz range tone. 

Counter 7 divides the 283. 4 signal by eight to develop the 3 5, 4 Hz 
signal required for the lowest range tone. This signal is distributed to the 
computer as a reference tone and to the 35. 4 Hz transmit tone select logic 
function. Although the 35.4 Hz signal is developed as a ranging reference 
function, the actual frequency transmitted for ranging is 318. 8 Hz. This 
is required as the 35. 4 Hz signal would be tracked out by the phase lock 
loop in the CDA receivers. Accordingly, the transmission range tone 
transmitted through the NASA transmitter section is 318. 8 Hz. 

The 318. 8 and 283.4 Hztones are transmitted simultaneously and 
there best note is detected upon reception. The mod index of each tone 
is adjusted to be about 0. 7. 

4, 3. 3. 2 Transmit Mode Switch Logic 

Mode select switch SI provides the capability of selecting four modes 
of range unit operation: mode A, B, or C, or computer-controlled opera- 

tions. (See Figure 4-12.) During manual operations, +5 volts are applied 
through switch SI to relay driver RD8, RD9, or RD10 when mode A, B, or 
C, respectively, is selected. When a voltage is applied to the input of the 
relay driver, the resultant output becomes zero; the absence of an input 
voltage causes a high voltage state at the output of the driver. In this man- 
ner, as the frequency select relays in the range unit are provided a high 
voltage state to one terminal of its coil, the application of 5 vdc to the input 
of the ac associated relay driver produces a low voltage state to the remain- 
ing terminal of the relay coil. The imbalance of voltage states at the 
terminals of the relay coil causes the relay to actuate and remain actuated 
until the voltage to the relay driver is removed. When that occurs, the out- 
put of the driver becomes high and the voltage states at both terminals 
of the relay coil become high, causing the coil to deenergize. 

Computer operation is initiated in a similar manner; however, each 
mode is initiated from the computer through separate pins on connector Jl. 
The computer 5 vdc power is applied through NAND gates in ICl and IC2 to 
switch SI with diodes CR4 through CR6 inserted in the circuit to ensure 
isolation between the computer-controlled functions and the manually con- 
trolled functions. The NAND gates inserted in the circuit are used to 
configure the power from the computer with the relay driver power functions. 
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In the computer mode, the lamp functions of transmit tone select 
switches S3 through S7 are lighted directly with the computer-switched 
power. In the manual mode, when mode A, B, or C is selected, the lamp 
functions of switches S3 through S7 are controlled by physically pressing 
the switch ON or pressing the switch OFF. Thus, during computer opera- 
tion, the illumination of the switch lights indicate the range tone frequency 
enabled; during manual operation, the switch must be pressed on or off in 
conjunction with the mode functions enabled by switch SI and in conjunction 
with the range tone frequencies to be transmitted. 

4. 3. 3. 3 Range Tone Transmit Frequency Distribution 

In general, the sections in the transmit logic for each of the 
frequencies are identical, the major elements being an input filter, an 
input relay, an amplifier, an output level adjustment, an output relay, and 
final output signal controls and indicator circuits. These functions are 
described in the following paragraphs. 

When mode A is selected in either the manual or computer mode, 

5 vdc is applied through switch S2 to relay driver RD8 to apply relay 
actuating signals to the input and output relays which control the transmis- 
sion of the mode A frequencies through the initial stages of the transmit 
section of the range unit. (See Figures 4-10 and 4-12. ) To enable the 
transmission of the range tone signal to the signal summing amplifier in the 
manual mode, the associated switch S4 through S7 must be pressed ON. 
Pressing the associated switch ON enables the associated relay driver to 
actuate the proper relays to apply the frequency tone to signal summing 
amplifiers Q6 through Q9 and light the associated switch lamp. In the 
computer mode, all segments of the transmit section are enabled directly 
from computer-generated signals and no front panel operations are required. 

For example, when mode A is selected in either the computer or 
manual mode, 5 vdc is applied through switch SI to enable relay driver RD8. 
The low state of relay driver RD8 operates relays K5 and Kll in the 27. 77 kHz 
section, relays K3 and K9 in the 3. 968 kHz section, relays K16 and K20 in 
the 283. 4 Hz section, and relays K17, K18, and K21 in the 35. 4 Hz section. 

To this point, the operation is identical for both the manual and computer 
modes; however, output relays and indicator lamp circuits must be enabled 
in order to apply any output signals to the summing amplifier. 

Note that the application of the 200 kHz to summing amplifier Q4 
is controlled by K63, 27. 77 kHz is controlled by K64, 3. 968 kHz is con- 
trolled by K65, 283. 4 Hz by K66, and 3 5. 4 Hz (3 18. 8 Hz) is controlled by 
relay K67. These relays are in turn controlled either by a signal from the 
associated transmit tone select switch when manual mode is selected, or 
from a signal from the computer from Jl-1 (mode A), Jl-2 (mode B), or 
Jl-3 (mode C). When mode A is selected at the computer, the 5 vdc signal 
at Jl-1 is applied to RD22 through RD25 to energize the relays associated 
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with each of the frequency tones in mode A. In addition, the 5 vdc signal 
is also applied to RD14 through 19 to actuate the applicable relay which in 
turn applies 28 vdc to the common terminal of the associated lamp for the 
frequency tone. Note that in the manual mode, the output relay can be 
enabled or disabled by pressing the associated transmit tone switch. 

The above technique is used to control the output of tone frequencies 
to the summing amplifier in the range unit. The output of the summing 
amplifier is then applied to the modulator, multiplied to 66 MHz, and made 
available to the NASA Station amplifier at connector J2 in the range unit. 

4. 3. 3. 4 Receive Tone Detection and Distribution 

Three receivers are provided .with the CDA for the detection of the 
IF frequencies associated with the transmitting functions of each of the TARS 
and the CDA as well as test functions. As each of these functions is capable 
of transmitting five ranging tones, three sets of five receive frequency 
detection and distribution sections are provided in the range unit with each 
of the subsections capable of detecting a specific tone. (See Figure 4-12.) 
Note that the output of each section is applied to a limiter prior to applying 
the received tone to the computer for processing. Note also that only one 
frequency subsection can be actuated at one time. (See paragraph 4. 3. 3. 5. ) 

In general, the frequency subsections are identical with the major 
elements being an input relay, an amplifier, an input filter, a second 
amplifier, an output level adjustment, and an output relay. These functions 
are described in the following paragraphs. 

When a specific tone is selected on receive tone select switch S2, a 
5 vdc signal is applied to the input and output relays for that subsection 
associated with receivers 1 through 3. Note that all received tones are 
amplified in the first amplifier prior to specific frequency detection in the 
associated bandpass filter. The detected tone is then amplified and 
attenuated prior to application through the associated output relay. 

The output of the receiver 1 section is applied through an amplifier 
and potentiometer R179 to limiter 1 prior application to the computing 
counter for analysis. The remaining frequency tone subsections are 
similarly processed prior to application to the CDA computer. Note that 
the detection of the 35. 4 Hz tone follows combining the 318. 8 Hz received 
tone and the 283.4 Hz received tone in all the amplifier circuits prior to 
filtering in the bandpass filter in the received tone subsection. 
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4. 3. 3. 5 Reference Tone Selection and Distribution 


The reference tone selection circuit has three basic functions in the 
range unit: to provide a means for the selection of one reference tone from 

any of the five range tones available, to provide relay driving signals to 
the reference tone select logic and receive tone detection and distribution 
logic, and to set the level of the reference tone prior to distribution 
limiter 4 and the computing counter. 

When reference tone select switch S2 is set to any of the frequencies, 
45 volts are applied to the associated relay driver to actuate relays in the 
reference tone logic function and the receiver tone select logic (Figure 4-13). 
For example, when switch S2 is set to 35. 4 Hz, 45 volts are applied to 
relay driver RD7 which, in turn, actuates relays K22 and K27 in the reference 
tone select logic (Figure 4 - 14 ) and relays K32 and K37# relays K42 and K47, 
and relays K52 and K57 in the 35.4 Hz received tone logic (Figure 4-13e). 
Relays K22 and K27 control the application of the 35. 4 Hz tone from the 
3 5. 4 Hz filter to reference tone limiter 4. The output of the reference tone 
limiter is applied to the computing counter in the CDA through the computing 
counter patch panel. The relays actuated in the received tone logic are used 
to apply the selected tone from each CDA receiver to an associated limiter 
prior to application to the computing counter through the computing counter 
patch panel. 

Each of the remaining tones is processed in a similar manner in the 
manual mode. When switch S2 is set to CMPTR, the relay driving signals 
are developed from computer inputs from connector Jl. 
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4. 3. 4 Tone Modulator Unit Theory of Operation 

The tone modulator unit, Hughes P/N 3029324, contains the elements 
required to modulate the range tones developed in the range unit onto a 
66 MHz IF frequency of the proper signal level for application to the NASA 
Station transmitter section. In addition, the tone modulator unit contains 
the signal switching function to configure the CDA for orderwire operation 
or for a test loop function. (See Figure 4-15. ) 

The range tones are applied to the tone modulator unit through 
connector J5 to tone phase modulator Ml which phase modulates the 5. 5 MHz 
output of oscillator CR1. The modulated 5. 5 MHz signal is then applied 
through RF switch S2 to the X12 frequency multiplier where the 66 MHz IF 
signal is developed. After the signal is provided with the desired character- 
istics in step attenuator ATI and IF amplifier Ai, it is applied to signal 
divider D2 which has asymmetrical outputs. The high level output is applied 
to connector J6 for ultimate connection to the NASA Station transmitter 
section; the low signal level output is connected through KF switch S3 to 
four-way power divider Dl. The outputs of the power divider are applied 
to connectors for further application to each receiver in the CDA and to 
an IF monitor connector on the front panel of the tone modulator unit for 
test purposes. 

The position of RF switch S2, which is controlled by functions in the 
switch unit, determines range tone or orderwire operation for the CDA, 

Note that the signal applied through conrvec to r .110 from the orderwire unit 
is at 5. 5 MHz, with prior modulation of the audio frequency signals being 
accomplished in the orderwire unit. 

In addition to the above, the tone modulator unit contains the 
switching functions required to generate command tones for controlling 
the transmitting functions in each of the TARS, The command tone genera- 
tors are physically located and provided prime operating power in the 
orderwire unit; however, the dc return for the prime power is applied to 
the generators through TARS 1 and 2 switches S5 and S6 located on the 
front, panel of the tone modulator. Note that the function of these switches 
is connected in series with command tones switch S4. With S4 in MANUAL, 
each of the TARS can be controlled as independent functions; with S4 in 
CMPTR, the CDA computer controls the simultaneous TARS 1 and 2 
command tones. 
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5. TRRR SOFTWARE SYSTEM 


5.1 TRRR SOFTWARE SYSTEM LOADING 

The following procedure is required for the TRRR software system 

loading. 

1) To use ranging system at the CDA, the "TRRR SYSTEM" tape 
must be Loaded first. 

2) To load, place tape in the Dicom numbered 1. 

a) Ensure the computer is in the halt mode (press HALT) 

b) Press "P" 

c) Press "CLEAR DISPLAY" 

d) Press address 27700 in octal into the display register 
(i.e., switches numbered 13, 11, 10, 9, 8, 7, and 

6 should be on) 

e) Press "S" 

f) Press "EXTERNAL PRESET" 

g) Press "INTERNAL PRESET" 

h) Press "LOADER ENABLE" (light should lit and remain 

illuminated ) 

i) Press "RUN" 

3) The computer will come to a halt after about 2 minutes with 
102077 in octal in the "DISPLAY REGISTER" (i.e. , switches 
numbered 15, 10, 5, 4, 3, 2, 1, and 0 will be illuminated; 
"LOADER ENABLE" should be off). If this does not occur, 
return to step 2a. 
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t 

4) Once this tape is loaded, it should not be necessary to load 

again unless the computer h$.s been used for another purpose, 

5. 2 DATA WORD ALLOCATION 

The computer output will be as specified in Table 5-1, 

5. 3 TRRR PROGRAM AND COMPUTER PRINTOUTS 

The TRRR memory core allocation is as specified in Table 5-2 and 
in the computer printouts. 


. ^ * 
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TABLE 5-1. DATA WORD ALLOCATIONS 


Word No. 

Description 

Units 

0 

Synchronization pattern 

1111 

Binary 

1 

Synchronization pattern 

0001 

Binary 

2 

Synchronization pattern 

1110 

B ina ry 

3 

Synchronization pattern 

0011 

Binary 

4 

Synchronization pattern 

1100 

Binary 

5 

■ 

Synchronization pattern 

0111 

Binary 

6 

Synchronization pattern 

1000 

Binary 

7 

Synchronization pattern 

mi 

B inary 

8 

Hundreds of days 


BCD 

9 

Tens of days 


BCD 

10 

Units of days 


BCD 

11 

Tens of hours 


BCD 

12 

Units of hours 


BCD 

13 

Tens of minutes 


BCD 

14 

Units of minutes 


BCD 

15 

Tens of seconds 


BCD 

16 

Units of seconds 


BCD 

17 

Spacecraft number 


Binary 

18 

Experiment mode 


B inary 


Spacecraft receiver filter temperature 


19 

Hundreds of degrees F 


BCD 

20 

Tens of degrees F 


BCD 

21 

Units of degrees F 


BCD 


CDA time delay'at 200 kHz 


BCD 

22 

10~1 sec 


BCD 

23 

10'^ sec 


BCD 

24 

10“^ sec 


BCD 

25 

10" 4 sec 


BCD 

26 

10"^ sec 


BCD 

27 

lCT 6 sec 


BCD 
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Table 5-1 (continued) 


Word # 

Descriptions 

Units 

28 

10-7 sec 

BCD 

29 

10-8 Sec 

BCD 

30 

10"9 sec 

BCD 

31 

10-^0 sec 

BCD 


CDA time delay at 27. 77 kHz 


32 

10" * sec 

BCD 

33 

10"^ sec 

BCD 

34 

10”^ sec 

BCD 

35 

10 “4 sec 

BCD 

36 

10” 5 sec 

BCD 

37 

10“^ sec 

BCD 

38 

io-7 sec 

BCD 

39 

10"8 sec 

BCD 

40 

10 _ 9 sec 

BCD 

41 

10” sec 

BCD 


CDA time delay at 3. 968 kHz 


42 

10 “ 1 sec 

BCD 

43 

10~2 S ec 

BCD 

44 

1 0 - ^ s e c 

BCD 

45 

10” 4 sec 

BCD 

46 

10~5 sec 

BCD 

47 

10' 6 sec 

BCD 

48 

1 0 " ^ s e c 

BCD 

49 

m-8 

10 sec 

BCD 

50 

IQ' 9 sec 

BCD 

51 

10" ^ sec 

BCD 
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Table 5-1 (continued) 


Word # 

Descriptions 

Units 

52 

CDA time delay at 283.4 Hz 
10" 1 sec 

BCD 

53 

10“^ sec 

BCD 

54 

10"^ sec 

BCD 

55 

10“^ sec 

BCD 

56 

1 0 “ ^ sec 

BCD 

57 

1G'6 S ec 

BCD 

58 

10 ^ ,sec 

BCD 

59 

10~8 S ec 

BCD 

60 

10~9 sec 

BCD 

61 

10-!0 sec 

BCD 

62 

CDA time delay at 35.4 Hz 
10" * sec 

BCD 

63 

1 0 “ ^ s e c 

BCD 

64 

10” 5 sec 

BCD 

65 

10" 4 sec 

BCD 

66 

10- 5 sec 

BCD 

67 

10“ 6 sec 

BCD 

68 

IQ' 7 sec 

BCD 

69 

10 ® sec 

BCD 

70 

10 "9 sec 

BCD 

71 

10-10 sec 

BCD 

72 

TARS I time delay at 200 kHz 
10“ 1 sec 

BCD 

73 

10“^ sec 

BCD 

74 

10" 5 sec 

BCD 

75 

10“ 4 sec 

BCD 

76 

TO" 5 sec 

BCD 

77 

1 0 “ 5 s e c 

BCD 

78 

10"7 sec 

BCD 
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Table 5-1 (continued) 


Word # 


Descriptions 

10 -8 

sec 


10-9 

sec 


10- 11 

^ sec 


TARS I time 

delay at 27. 777 kHz 

10" 1 

sec 


10- 2 

sec 


10' 3 

sec 


10" 4 

sec 


10" 5 

sec 


10" 6 

sec 


10- 7 

sec 


10' 8 

sec 


10-9 

sec 


in- 10 
10 sec 


TARS I time 

delay at 3.968 kHz 

10' 1 

sec 


10' 2 

sec 


10 -3 

sec 


10~ 4 

sec 


10" 5 

sec 


10' 6 

sec 


10- 7 

sec 


10 -8 

sec 


10-9 

sec 


in -10 
10 sec 


TARS I time 

deLay at 283. 4 Hz 

10" 1 

sec 


10" 2 

sec 


10‘ 3 

sec 

\ 



Units 


BCD 

BCD 

BCD 

BCD 

BCD 

BCD 

B'CD 

BCD 

BCD 

BCD 

BCD 

BCD 

BCD 
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Table 5-1 (continued) 


Word # 

Description 

Units 

132 

TARS II time delay at 27. 777 kHz 
1 0 ~ * sec 

BCD 

133 

10 ^ sec 

BCD 

134 

10 ^ sec 

BCD 

135 

10 ^ sec 

BCD 

136 

in' 5 

10 sec 

BCD 

137 

10 ^ sec 

BCD 

138 

10 ^ sec 

BCD 

139 

in' 8 
1 0 sec 

BCD 

140 

_Q 

10 sec 

BCD 

141 

in' 10 
10 sec 

BCD 

142 

TARS II time delay at 3.968 kHz 
10 ^ sec 

BCD 

143 

10 ^ sec 

BCD 

144 

10"^ sec 

BCD 

145 

10 sec 

BCD 

146 

10^ sec 

BCD 

147 

in -6 

10 sec 

BCD 

148 

10 ^ sec 

BCD 

149 

i n " 8 

10 sec 

BCD 

150 

-9 

10 see 

BCD 

151 

i n " 1 0 

10 sec 

BCD 

152 

TARS 11 time delay at 283.4 Hz 
in -l 

10 sec 

BCD 

153 

-2 

1 0 sec 

BCD 

154 

10 ^ sec 

BCD 

155 

10 ^ sec 

BCD 

156 

in' 5 

10 sec 

BCD 

157 

, n -6 

10 sec 

BCD 

158 

in -7 i 
10 sec 

• — — — — — — — — — - 

BCD 
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Table 5-1 (continued) 


Word # 

Description 

Units 


-8 


159 

10 sec 

BCD 

160 

10 ^ sec 

BCD 

161 

in" 10 
10 sec 

BCD 


TARS II time delay at 35. 4 Hz 


162 

10 * sec 

BCD 

163 

10 ^ sec 

BCD 

164 

10 ^ sec 

BCD 

165 

10 ^ sec 

BCD 

166 

io.5 sec 

BCD 

167 

10 ^ sec 

BCD 

168 

10 7 sec 

BCD 

169 

in -8 

10 sec 

BCD 

170 

- 9 

10 sec 

BCD 

171 

in' 10 
1 0 sec 

BCD 

172 

Error message 

Binary 

173-207 

Spares 


208-217 

RCDA 

BCD 

218-227 

RTARS I 

BCD 

228-237 

RTARS II 

BCD 

238-244 

RCDA 

BCD 

245-251 

RTARS 

BCD 

252-258 

RTARS II 

BCD 

259-266 

TIME TAG 

BCD 

267-276 

RCDA 

BCD 

277-286 

RTARS I 

BCD 

287-296 

RTARS II 

BCD 

297-303 

RCDA 

BCD 

304-310 

RTARS I 

BCD 

311-317 

RTARS II 

BCD 

318-325 

TIME TAG 

1 ' — 

BCD 
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Table 5-1 (continued) 


Word # 

Description 

Units 

326-335 

RCDA 

BCD 

336-345 

RTARS I 

BCD 

346-355 

RTARS II 

BCD 

356-362 

RCDA 

BCD 

363-369 

RTARS I 

BCD 

370-376 

RTARS II 

BCD 

377-384 

TIME TAG 

BCD 

385-394 

RCDA 

BCD 

395-404 

RTARS I 

BCD 

405-414 

RTARS II 

BCD 

415-421 

RCDA 

BCD 

422-428 

RTARS I 

BCD 

429-435 

RTARS II 

BCD 

436-443 

TIME TAG 

BCD 

444-453 

RCDA 

BCD 

454-463 

RTARS I 

BCD 

464-473 

RTARS II 

BCD 

474-480 

RCDA 

BCD 

481-487 

RTARS I 

BCD 

488-494 

RTARS II 

BCD 

495-502 

TIME TAG 

BCD 

503-512 

RCDA 

BCD 

513-522 

RTARS I 

BCD 

523-532 

RTARS II 

BCD 

533-539 

RCDA 

BCD 

540-546 

RTARSI 

BCD 

547-553 

RTARS II 

BCD 

554-561 

TIME TAG 

BCD 
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VOLUME I. CDA SYSTEM MANUAL 


Table 5-1 (continued) 


Word # 

Description 

Units 

562-571 

• RCDA 

BCD 

572-581 

RTARS I 

BCD 

582-591 

RTARS II 

BCD 

592-598 

RCDA 

BCD 

599-605 

RTARS I 

BCD 

606-612 

RTARS II 

BCD 

613-620 

TIME TAG 

BCD 

621-630 

RCDA 

BCD 

631-640 

RTARS I 

BCD 

641-650 

RTARS II 

BCD 

651-657 

RCDA 

BCD 

658-664 

RTARS I 

BCD 

665-671 

RTARS II 

BCD 

672-679 

TIME TAG 

BCD 

680-689 

RCDA 

BCD 

690-699 

RTARS I 

BCD 

700-709 

RTARS II 

BCD 

710-716 

RCDA 

BCD 

717-723 

RTARS I 

BCD 

724-730 

RTARS II 

BCD 

731-738 ! 

TIME TAG 

. 

1 . 

. 

• ...... .■■■■■ 

BCD 
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TABLE 5-2. TRRR CORE MAP 


System links 


Buffer area 


- 13427 


Loader program 


13430 - 13515 


Equipment table 


13516 - 13540 


Input/ output control 


13541 - 13670 


Miscellaneous subroutines 


13671 - 14003 


Modem 


14004 - 15366 


N5 computation 


15367 - 16054 


TRRR executive 


16055 - 20245 


Math routines 


20246 - 22003 


Timq base generator 


22004 - 22033 


Binary to BCD 


22034 - 22155 


Read time of day 


22156 - 22352 


Teletype driver 


22353 - 22663 


Counter driver 


22664 : 24006 


Binary to decimal 


24007 - 24135 


Decimal to ASCII 


24135 - 24407 


Range rate/adjust 


24410 - 26002 


Modem send 


26003 - 26052 


Fixed delay 


26053 - 26220 


Teletype handler 


26221 - 27677 
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COMPUTER PRINTOUTS 



Page 

TRRR PCS Loader 

5-15 

TRRR Input/Output Control 

5-19 

Misc Subroutines 

5 -23 

Modem Output 

5-27 

Decode Subroutine 

5-31 

N5A: Ambiguity Removal Routine 

5-39 

Storage and Constants 

5-47 

TRRR Operating System 

5-49 

Calibration-Loop and Period 

5-53 

Ambiguity Removal 

5-55 

Ranging Operation 

5-57 

Point Verification 

5-61 

Final Ambiguity Removal 

5-65 

Range Rate and Final Output 

5-71 

Subroutines 

5-75 

Constants and Working Storage 

5-81 

Add and Subtract - Full Precision 

5-85 

Multiply & Divide - Full Precision 

5-93 

Decimal to Binary 

5-103 

Time Base Generator Driver 

5-107 

Binary to BCD 

5-109 

BCD to Binary 

5-111 

Read Time of Day 

5-113 

TTY Driver 

5-117 

Counter Driver 

5-123 

Binary to Decimal 

5-137 

Decimal to ASCII 

5-141 

Range Rate Routine 

5 - 147 

Adjust Range Routine 

5-155 

Modem Send Routine 

5-159 

Fixed Delay Computation 

5-161 

TTY Handler 

5-165 
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EREGEDING PAGE BLANK NOT FILMED 
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P*<iE 0W0? #01 * TRRR PCS LOADER * 6MAR75 


0001 



ASMB.R 

!»B,L 


0 003 

000 0 0 



NAM 

LOADR 

000 4 




ENT 

,LDR., HALT. .MEM,, LST 

0005 




ENT 

AREA, T IME, POINT, CDA. TARSI .TARS2 

0006 




EXT 

START 

0007 




SUP 


0008* 






0009 

00000 

000000 


NOP 


0010 

00001 

000057R 


OEF 

.MEM, 

0011 

00002 

027000 


OCT 

27000 

00 12 

00003 

042515 


ASC 

2 , EM , M 

00 13 




EXT 

.SOT. 

0014 

00005 

000000 


NOP 


0015 

00006 

000002X 


OEF 

.SOT. 

0016 

00007 

027000 


OCT 

27000 

0017 

00010 

050524 


ASC 

2.QT.S 

00 1 8 




EXT 

.IOC, 

0019 

00012 

000000 


NOP 


0020 

00013 

0 0 0 0 0 3 X 


DEF 

.IOC, 

0021 

00014 

027000 


OCT 

27000 

0022 

00015 

047503 


ASC 

2 , OC , I 

0023 

00017 

000003 

LST 

DEC 

3 

0024* 






0025 

00020 

062060R 

.LDR, 

LDA 

FWABP 

0026 

00021 

042064R 


ADA 

■ B200 

002 7 

00022 

072053R 


ST A 

CDA 

0028 

00023 

003004 


CMA, 

INA 

0029 

00024 

042063R 


ADA 

LW AM 

0030 

00025 

006400 


CLB 


0031 

00026 

100400 


OCT 

100400 DIVIDE BY 3 

0032 

00027 

000047R 


OEF 

.3 

0033 

00030 

07205 1 R 


STA 

AREA 

0034 

00031 

042065R 


ADA 

*B4 

0035 

00032 

042053R 


ADA 

CDA 

0036 

00033 

072054R 


STA 

TARSI 

0037 

00034 

0 4 2 0 5 1 R 


ADA 

AREA 

0038 

00035 

042065R 


ADA 

*84 

0039 

00036 

072055R 


STA 

TARS2 

0040 

00037 

062051R 


LDA 

AREA 

00 41 

00040 

001121 


ARS, 

ARS 

0042 

00041 

072052R 


STA 

POINT 

00 43 

00042 

006400 


CLB 


0044 

00043 

100400 


OCT 

100400 

0045 

00044 

000050R 


DEF 

,30 

0046 

00045 

072056R 


STA 

TIME 

0047 

00046 

02600 1 X 


JMP 

START 

0048* 






004,9 




UNS 


00 50 

00047 

000003 

.3 

DEC 

3 

0051 

00050 

000036 

,30 

DEC 

33 

0 0 52 

00051 

000000 

AREA 

NOP 


0053 

00052 

000000 

POINT 

NOP 


0054 

00053 

000000 

CD A 

NOP 


0055 

00054 

000000 

TARSI 

NOP 


0056 

00055 

000000 

TARS2 

NOP 


0057 

00056 

000000 

TIME 

NOP 


0058 

00057 

0 0 0 0 6 0 R 

MFMRY 

DEF 

* + l 
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0059 

00057 


0060 

00057 


0061 

00060 

000000 

0062 

00063 

000000 


00064 

000200 

0063 

00065 

000004 

** 

NO ERRORSl AMO 


HALT EQU MEMRY 
.MEM, EQU MEMRY 
F.WABP BSS 3 
LW AM NOP 


END 

ASMS, 25117*402518 


r* * . 
'"<«>• 
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PTIEUEUTNO PAGE BLANK MOT FILMED. 


5-19 



n * r »E 0002 #01 * TRRR INPUT/OUTPUT CONTROL * 3/13/75 


000 1 



ASMB , 

R»B, 

L 


0003 

00000 



NAM 

IOC 


0004 




ENT 

,I0C.,DMACl,0MAC2,XSQT,XEQT 

0005* 







000 6 

00000 

000000 

.IOC. 

NOP 



0007 

00001 

102100 


STF 

0 

TURN ON INTERRUPTS 

0008 

00002 

162000R 


LDA 

.IOC., I 


0009 

00003 

001700 


ALF 



0010 

00004 

012123R 


AND 

B17 

REQUEST CODE 

001 l 

00005 

0721 10R 


STA 

R.C. 


0012* 







0013 

00006 

162000R 


LDA 

. I DC , 1 1 

GET REQUEST 

0014 

00007 

0 1 2 1 2 4 R 


AND 

B 77 

MASK UNIT NUMBER 

0015 

00010 

070001 


STA 

1 


0016 

0001 1 

002003 


SZA 

* RSS 

SYSTEM CLEAR ? 

0017 

00012 

026065K 


JMP 

CLRIT 

YES 1 CLEAR ALL DEVICES 

0018 

00013 

042 1 27 R 


ADA 

DM7 

SUBTRACT 7 FROM ORDINAL. IF 

0019 

00014 

002021 


SSA 

, RSS 

RESULT IS POSITIVE, THEN 

0020 

00015 

026022R 


JMP 

I0C1 

ORDINAL IS TO EQT , OTHERWISE 

0021 

00016 

0461 1 IR 


AOB 

XSQT 

IT IS SQT . IF SQT , THEN 

0022 

00017 

046125R 


ADB 

DM1 

COMPUTE TO EQT. 

0023 

0M020 

160001 


LDA 

1,1 


0024 

00021 

042127R 


ADA 

DM7 


0025* 







0026 

00022 

001020 

I0C1 

ALS| 

,als 

MPY BY 4 (4 WO EQT) 

0027 

00023 

002004 


INA 



0028 

00024 

0421 12R 


ADA 

XEQT 

STARTING ADDRESS OF EQT 

0029 

00025 

070001 


STA 

1 


0030 

00026 

072113R 


STA 

EQTT 

WORD 1 OF EQT 

0031 

00027 

006004 


IN6 


ADDRESS OF WORD 2 OF EQT 

0032 

00030 

0621 10R 


LDA 

R.C. 


0033 

00031 

052122R 


CPA 

B4 


0034 

00032 

02606 1 R 


JMP 

I0C3 

STATUS REQUEST 

0035* 







0036 

00033 

160001 


LDA 

1,1 

WORD 2 OF EQT 

0037 

00034 

046120R 


ADB 

B2 


0038 

00035 

164001 


LOB 

1,1 

WORD 4 OF EQT 

0039 

00036 

0761 1 4R 


STB 

DRI V 

DRIVER ADDRESS 

0040 

00037 

0661 10R 


LDB 

R.C. 


0041 

00040 

006003 


SZB i 

, RSS 

CLEAR REQUEST ? 

0042 

00041 

026055R 


JMP 

I0C4 

YES 1 DON 1 T CK FOR BUSY 

00 4 3 

00042 

070001 


STA 

1 


0044 

000. '13 

002020 


SSA 


DRIVER BUSY ? 

0045 

00044 

026106R 


JMP 

SST2+1 

YESI REJECT REQUEST 

0046* 







0047 

00045 

0 6 6 0 0 0 R 


LDB 

.IOC. 

REQUEST CODE ADDRESS 

0048 

00046 

0621 13R 


LDA 

EQTT 

EQT ADDRESS 

0049 

000 4 7 

1 16114R 


JSB 

DR I V , 1 

00 TO DRIVER 

0050 

00050 

002002 


SZA 


SID DRIVER REJECT ? 

0051 

00051 

026106R 


JMP 

S S T 2 ♦ 1 

YESI RETURN TO P*12 

0052* 







0053 

00052 

066000R 


LDB 

.IOC. 


0054 

00053 

0 4 6 12 2 R 


ADB 

B4 

FORM P*5 EXIT 

0055 

00054 

124001 


JMP 

1,1 

RETURN TO CALLER 

0056* 







0057 

00055 

06 6 0 0 0 R 

I0C4 

LDB 

.IOC. 

CLEAR REQUEST ADDRESS 

0058 

00056 

0621 13R 


LDA 

EQTT 

EQT ADDRESS 


5-20 


PAGE 0003 #0 1 * TRRR INPUT/OUTPUT CONTROL * 3/13/75 


0059 

00057 

U6114R 


JSB 

ORI V , I 

GO TO DRIVER 

0060 

00060 

0 2 6 1 0 5 R 


JMP 

SST2 

RETURN TO P + 2 

0061* 







0062 

00061 

160001 

IOC3 

LDA 

1,1 

STATUS WORD 

0063 

00062 

006004 


INB 



0064 

00063 

164001 


LDB 

1,1 

AMISSION LOG 

0065 

00064 

026106R 


JMP 

SST2+1 

RETURN TO P+2 

0066* 







0067 

00065 

162U2R 

CLRIT 

LDA 

XEQT , I 

NUMBER OF EOT ENTRIES 

0068 

00066 

003004 


CMAi 

, INA 

MAKE NEGATIVE AND SAVE AS 

0069 

00067 

0721 17R 


STA 

SIOC 

AN INDEX COUNTER 

0070 

00070 

0621 12R 


LDA 

XEQT 


0071 

00071 

002004 


INA 


ADDRESS OF WORD l OF EQT 

0072* 







0073 

00072 

0721 15R 

CLR1 

STA 

OMAC1 


0074 

00073 

042 1 2 1 R 


ADA 

B3 

ORIVER ADDRESS 

0075 

00074 

164000 


LDB 

0,1 


0076 

00075 

0761 14R 


STB 

ORI V 


0077 

00076 

0621 15R 


LDA 

DMAC1 

EQT ENTRY ADDRESS 

0078 

00077 

066000R 


LDB 

• IOC a 

REQUEST CODE ADDRESS 

0079 

00100 

11 5 1 1 4 R 


JSB 

DRI V , X 

OPERATE ORIVER 

0080* 







0081 

00101 

0621 15R 


LDA 

DMAC1 


0082 

00102 

042122R 


AOA 

B4 

AOORESS OF NEXT ENTRY 

0083 

00103 

036117R 


ISZ 

SIOC 

ALL DONE ? 

0084 

00104 

026072R 


JMP 

CLR1 

NO 1 DO NEXT ONE 

0085 

00105 

006400 

SST2 

CLB 


YES 1 RETURN TO P + 2 

0086 

00106 

036000R 


ISZ 

.IOC, 


0087 

0 010 7 

126000R 


JMP 

.IOC., I 


0088* 







0089 

00110 

000000 

R.C. 

NOP 



0090 

00111 

000000 

XSQT 

NOP 



0091 

00112 

000000 

XEQT 

NUP 



0092 

00113 

000000 

EQTT 

NOP 



0093 

00114 

000000 

DR I V 

NOP 



0094 

00115 

000000 

DM AC 1 

NOP 



0095 

00116 

000000 

DMAC2 

NOP 



0096 

00117 

000000 

SIOC 

NOP 



0097 

00120 

000002 

B2 

OCT 

2 


0098 

00121 

000003 

B3 

OCT 

3 


0099 

00122 

000004 

04 

OCT 

4 


0100 

00123 

000017 

B 1 7 

OCT 

17 


0101 

00124 

000077 

077 

OCT 

77 


0102 

00125 

177777 

DM1 

DEC 

-1 


0103 

00126 

177776 

DM2 

DEC 

• 2 


0104 

00127 

177771 

DM7 

OEC 

-7 


0105 




end 



** NO ERRORS » AMD ASMS , 25117" 

*4025 IB 
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PI 0101 ASMB , 

0003 00000 

0004 

0005 

0006 
0007 
0008* 

0009 00000 000000 LINK2 

0010 00001 066000R 

0011 00002 076005R 

0012 00003 062106R 

0013 00004 026007R 

0014* 

0015 00005 000000 LINK3 

0016 00006 062107R 

0017 00007 04200 1 X 

0018 00010 002021 

0019 00011 036005R 

0020 00012 126005R 

0021 * 

0022 00013 016002X ABORT 

0023 00014 000000 

0024 00015 003400 

0025 00016 102615 

0026 00017 002400 

0027 00020 072004X 

0028 00021 026003X 

0029* 

0030 00022 000000 RUDOT 

0031 00023 003000 

0032 00024 012J10R 

0033 00025 102615 

0034 00026 0 6 2 1 1 1 R 

0035 00027 0 1 600 5 X 

0036 00030 126022R 

0037* 

0038 00031 000000 LOCK 1 

0039 00032 062U2R 

0040 00033 016043R 

0041 00034 000102R 

0042 001035 036004X 

0043 00036 003400 

0044 00037 016006X 

0045 00040 002400 

0046 00041 072004X 

0047 00042 1 26031 R 

0048* 

0049 00043 000000 PRINT 

0050 00044 072062R 

0051 00045 162043R 

0052 00046 036043R 

0053 00047 07206 1 R 

0054 00050 016002X 

0055 00051 040001 

0056 00052 002021 

0057 00053 026056R 

0058 00054 016002X 


»,b,l 

NAN MISC 

ENT ABORT ,L0CK1,LINK2»LINK3 
ENT RUDOT, PRINT, CLEAR 
EXT LINKS,, IOC,, START 
EXT OKFLL,ETIME,RTTYB 

NOP 

LOB LINK2 
STB LINK3 
LOA *B-2 
JMP LINK3*2 

NOP 

LOA *B»3 
ADA LINKS 
SSA , RSS 
ISZ LINKS 
JMP LINK3.I 

JSB .IOC, 

NOP 

CCA 

OTA RUD 
CLA 

STA OKFLL 
JMP START 

NOP 

CMA 

AND *B377 
OTA RUD 
LOA *030000 
JSB ETIME 
JMP RUDOT , I 

NOP 

LOA *04 
JSB PRINT 
DEF MSG 
ISZ OKFLL 
CCA 

JSB RTTYB 
CLA 

STA OKFLL 
JMP LOCK 1 , 1 

NOP 

STA CNTP 
LOA PRINT, I 
ISZ PRINT 
STA LOCP 
JSB .IOC, 

OCT 40001 
SSA, RSS 
JMP **3 
JSB .IOC. 

24 


*i r 


*i> 

■** 
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0059 

00055 

000001 


OCT 

1 

0060 

00056 

016002K 


JS8 

• i oc • 

0061 

00057 

020001 


OCT 

20001 

0062 

00060 

026058R 


JMP 

*-2 

0063 

00061 

000000 

LOOP 

NOP 


0064 

00062 

000000 

CNTP 

NOP 


0065 

00063 

016002X 


JSB 

.IOC. 

0066 

00064 

040001 


OCT 

40001 

0067 

00065 

002020 


SSA 


0068 

00066 

026063R 


JMP 

*»3 

0069 

00067 

126043R 


JMP 

PRINT, I 

0070* 






0071 

00070 

000000 

clear 

NOP 


0072 

00071 

002021 


SSA, 

RSS 

00 73 

00072 

003004 


CMA, 

JNA 

0074 

00073 

072062R 


STA 

CNTP 

0075 

00074 

002400 


ClA 


0076 

00075 

170001 


STA 

1,1 

0077 

00076 

006004 


INB 


0078 

00077 

036062R 


ISZ 

CNTP 

0079 

00100 

026075R 


JMP 

* — 3 

0080 

00101 

126070R 


JMP 

CLEAR,! 

0081* 






0082 

00015 


RUD 

EQU 

15B 

0083 

00102 

046117 

MSG 

A SC 

4 , LOCK-UP? 


00103 

041513 





00104 

026525 





00105 

050077 





00106 

177776 





00107 

177775 





00110 

000377 





00111 

072460 





00112 

000004 




0084 




END 
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0001 



ASMB, 

R#B,i 

L 


0003 

00000 



NAM 

MODEM 


0004 




ENT 

MODEM, MOOT, DECOD, MS*, MTX 

0005 




EXT 

DONE , CDA, 

TARSI, TARS2, MODS*, A77B 

0006 




EXT 

,35FD, MOVE, L INKS, BIBCD,BTD 

0007 




EXT 

DMULfDADD 

, SHAME, SEND, N5C,N5T1,N5T2 

000b 




ENT 

8570, MODE 


0009* 







0010 

00000 

f 00000 

MODEM 

NOP 



001 1 

00001 

06200 1 X 


IDA 

DONE 


0012 

00002 

003004 


CMA 

, INA 

SAVE NUMBER OF POINTS 

001 3 

00003 

072645R 


STA 

COUNT 


0014 

00004 

062002X 


LDA 

CDA 


00 1 5 

00005 

0721 16R 


STA 

MODZ 

ADDRESS OF CDA DATA 

00 1 6 

00006 

162000R 


LDA 

MODEM, I 


00 1 7 

00007 

036000R 


ISZ 

MODEM 


00 1 8 

00010 

072646R 


STA 

R.CDA 

RANGE RATE OF CDA 

0019 

0001 1 

062003X 


LDA 

tarsi 


0020 

00012 

072647R 


STA 

TARl 

TARS 1 DATA 

0021 

00013 

0721 17K 


STA 

MODZM 


0022 

00014 

162000R 


LDA 

MODEM, I 


0023 

00015 

036000R 


ISZ 

MODEM 


0024 

00016 

072650R 


STA 

R.TA1 

RANGE RATE OF TARS i 

0025 

00017 

06 2 00 4 X 


LDA 

TARS2 


0026 

00020 

072651R 


STA 

TAR2 

TARS 2 DATA 

0027 

00021 

072120R 


STA 

M00Z*2 


0028 

00022 

1 62000R 


LDA 

MODEM, I 


0029 

00023 

036000R 


ISZ 

MODEM 


0030 

00024 

072652R 


STA 

R.TA2 

RANGE RATE OF TARS 2 

0031 

00025 

036006X 


ISZ 

A778 


0032 

00026 

002001 


RSS 



0033 

00027 

126000R 


JMP 

MODEM, I 


0034* 







0035 

00030 

002400 

UP 

CLA 



0036 

00031 

016516R 


JSB 

MS* 

CLEAR OUT MODEM BUFR 

0037 

00032 

067030R 


LDB 

INDEX 

1ST WORD OF PACKING BUFFER 

0038 

00033 

076713R 


STB 

*** 


0039 

00034 

047337R 


ADB 

■ 0197 


0040 

00035 

062005X 


LDA 

MODS* 

YEAR IN LAST WORD OF BUFFER 

0041 

00036 

170001 


STA 

1*1 


0042 

00037 

063340ft 


LDA 

■ D«2 


0043 

00040 

072714R 


STA 

XXXI 


0044 

00041 

000040 


CLE 



0045 

00042 

06334 1 R 


LDA 

■D-14 


0046 

00043 

0 667 1 SR 


LDB 

MOOT PACK FIRST 21 CHARS. 

0047 

00044 

016265R 


JSB 

PACK 

AND SEND OVER MODEM 

0048* 







0049 

00045 

0 6 3 3 4 2 R 


LDA 

■ 0*3 


0050 

00046 

072653R 


STA 

CNT 1 


0051 

00047 

062007* 


LDA 

• 35F0 

FIXED DELAY ADDRESS 

0052 

00050 

072654R 


STA 

FIXD 


0053 

00051 

063343ft 


LDA 

■ B5 


0054 

00052 

0.72655ft 


STA 

CNT 


0055* 







0056 

00053 

062734R 

STORE 

LDA 

B570 

TEMP STORAGE FOR BCD DIGITS 

0057 

00054 

072673R 


STA 

MODO 


0058 

00055 

003400 


CCA 
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0059 

00056 

042655R 


AOA 

CNT 


0060 

00057 

072655R 


STA 

CNT 


0061 

00060 

002020 


8SA 


9 SETS OF READINGS SENT OUT ? 

0062 

00061 

026100R 


JMP 

OVER ■ 

YESI PICK UP NEXT SET 

0063 

00062 

001020 


ALS, 

ALS 

NO 1 MULTIPLY CNT BY 4 

0064 

00063 

042654R 


ADA 

FIXO 

ADD FIXED DELAY ADDRESS 

0065 

00064 

066407R 


LOB 

ANSY 


0066 

00065 

0160107 


JSB 

MOVE 

MOVE DECIMAL NUMBER INTOTHIS PRO 

0067 

00066 

063342R 


LDA 

■ D-3 


0068 

00067 

016453R 


JSB 

SHIFT 

SHIFT DIGITS INTO POSITION 

0069 

00070 

067344R 


LOB 

■ D-10 

UNPACK 10 BCD DIGITS 

0070 

00071 

016307R 


JSB 

UNPK 


0071 

00072 

000657R 


DEF 

ANS* 1 


0072 

00073 

000040 


CLE 



0073 

00074 

063344R 


LDA 

■0-10 

OUTPUT DIGITS OVER MODEM 

0074 

00075 

066734R 


LOB 

B570 


0075 

00076 

016265R 


JSB 

PACK 


0076 

00077 

026053R 


JMP 

STORE 

GET NEXT FIXED DELAY 

0077* 







0078 

00100 

062654R 

OVER 

LDA 

FIXO 

SET ADDRESS FOR NEXT SET 

0079 

00101 

043345R 


ADA 

■D20 

OF 9 FIXED DELAYS 

0080 

00102 

072654R 


STA 

FIXD 


0081 

00103 

036653R 


ISZ 

CNTi 

3 SETS OF 9 FINISHED ? 

0082 

00104 

02605 1 R 


JMP 

STORE-2 

NO 1 GET NEXT SET 

0083* 







0084 

00105 

067346R 


LOB 

■ D-l 8 

PACK ZEROS FOR SPARES 

0085 

00106 

002400 


CLA 



0086 

00107 

072670R 


STA 

TEMP 2 


0087 

00110 

0 1 650 1 R 


JSB 

PLACE 


0088 

00111 

006006 


XNB, 

SZB 


0089 

00112 

026106R 


JMP 



0090* 







0091 

00113 

063344R 


LDA 

■ D-10 

SET FOR 10 SETS OF READINGS 

0092 

00114 

07267 1R 


STA 

START 


0093 

00115 

016161R 


JSB 

DECOO 

DECODE DATA 

0094 

00116 

000000 

MODZ 

BSS 

3 


0095 

00121 

06267 1 R 


LDA 

START 


0096 

00122 

000040 


CLE 


CHECK TO SEE IF FORKING ON 

0097 

00123 

000010 


SLA 


ODD OR EVEN WORD 

0098 

00124 

002200 


CME 


ODD 

0099 

00125 

06 3 3 47 R 


LDA 

■ D-59 


0100 

00126 

066734R 


LDB 

8570 


0101 

00127 

010265R 


JSB 

PACK 

PACK AND SEND BCD DIGITS 

0102 

00130 

062116R 


LDA 

MODZ 

BUMP ADDRESSES BY 4 

0103 

00131 

043350R 


ADA 

■ B4 


0104 

00132 

072116R 


STA 

MODZ 


0105 

00133 

062 1 1 7R 


LDA 

M00Z*1 


0106 

00134 

043350R 


ADA 

■ B4 


0107 

00135 

072117R 


STA 

M0DZ*1 


0108 

00136 

062120R 


LDA 

M0DZ*2 


0109 

00137 

043350R 


ADA 

■84 


0110 

00140 

072120R 


STA 

M00Z*2 


0111* 







0112 

00141 

036645R 


ISZ 

COUNT 

ALL POINTS FINISHED 

0113 

00142 

002001 


RSS 


NO 1 

0114 

00143 

026 1 3 1 R 


JMP 

FINI 

YES* GET OUT 

0115 

00144 

03667 1 R 


ISZ 

START 

10 SETS OF POINTS FINISHED 1 


5-Z9 
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0116 

00145 

0261 15R 


JMP 

MODZ«l 

NO 1 

KEEP GOING 


0117 

00146 

002400 


CIA 





0118 

00147 

016545R 


JSB 

MTX 

SEND 

OUT OVER MODEM 

0119 

00150 

026030R 


JMP 

UP 

SEND 

OUT NEXT 800 

WORDS 

0120* 









0121 

00151 

06267 1 R 

FINI 

LDA 

START 

SEND 

OUT ZEROS TO 

COMPLETE 

012? 

00152 

000010 


SLA 


800 

WORDS 


0123 

00153 

026156R 


JMP 

EVEN 




0124 

00 154 

062670R 


LDA 

TEMP2 




0125 

00155 

01650 1 R 


JSB 

PLACE 




0126 

00 156 

002400 

EVEN 

CLA 





0127 

00157 

016545R 


JSB 

MTX 

SEND OVER MODEM 


0128 

00160 

126000R 


JMP 

MODEM • I 

RETURN TO CALLER 
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DECODE SUBROUTINE 


0005 

*01 * 

DECODE SUBROUTINE 



0131 

00161 

000000 

DECOD 

NOP 



0132 

0016? 

1 62 1 6 1 R 


LDA 

DECOD , I 


0133 

00163 

036 1 6 1 R 


isz 

OECOD 


0134 

00164 

072212R 


STA 

RCDA 


0135 

00165 

162161R 


LOA 

OECOD, I 


0136 

00166 

036 1 6 1 R 


ISZ 

OECOD 


0137 

00167 

072215R 


STA 

TART1 


0138 

00170 

1 62 1 6 1 S 


LOA 

DECOD, 1 


0139 

00171 

036161R 


ISZ 

DECOD 


0140 

0141* 

00172 

072220R 


STA 

TART2 


0142 

00173 

006400 


CLB 



0143 

00174 

062002X 


LDA 

CDA 

SUBTRACT START OP CDA TABLE 

0144 

00175 

003004 


CMA, 

INA 

FROM WHERE CALLER IS 

0145 

00176 

042212R 


ADA 

RCDA 


0146 

00177 

001121 


ARS, 

ARS 

DIVIDE BY 4 

0147 

00200 

043351R 


ADA 

*D«30 

SUBTRACT 30 UNTIL NUMBER GOES 

0148 

00201 

002020 


SS A 


NEGATIVE. THIS TELLS WHICH 

0149 

00202 

026205R 


JMP 

*♦3 

R. TO PICK UP 

01.50 

00203 

006004 


INB 



0151 

00204 

026200R 


JMP 

*"4 


0152 

0153* 

00205 

076672R 


STB 

MARK 


0154 

00206 

062734R 


LOA 

B570 


0155 

00207 

072673R 


STA 

MODO 

TEMP STORAGE FOR BCD DIGITS 

0156 

00210 

0 5 2 0 2 0 X 


LDA 

N5C 


0157 

00211 

016335R 


JSB 

TOIGS 

CONVERT RCDA TO 10 DIGITS 

0158 

00212 

000000 

RCDA 

NOP 



0159 

00213 

062021 X 


LDA 

N5T1 


0160 

00214 

016335R 


JSB 

TOIGS 

CONVERT TART 1 TO 10 DIGITS 

0161 

00215 

000000 

T ART 1 

NOP 



0162 

00216 

062022X 


LDA 

N5T2 


0163 

00217 

016335R 


JSB 

TOIGS 

CONVERT TART 2 TO 10 DIGITS 

0164 

0165* 

00220 

000000 

TART2 

NOP 



0166 

00221 

062646R 


LDA 

R.CDA 

CONVERT R.CDA TO 7 DIGITS 

0167 

00222 

016425R 


JSB 

SEDIG 


0168 

00223 

062650R 


LDA 

R.TAl 

CONVERT R.TART 1 TO 7 DIGITS 

0169 

00224 

016425R 


JSB 

SEDIG 


0170 

00225 

062652R 


LOA 

R.TA2 

CONVERT R.TART 2 TO 7 DIGITS 

0171 

0172* 

00226 

016425R 


JSB 

SEDIG 


0173 

00227 

002400 


CLA 



0174 

00230 

072656R 


STA 

ANS 


0175 

00231 

072657R 


STA 

ANS*1 


0176 

00232 

062212R 


LDA 

RCDA 

ADD THE 3 TIME TAGS 

0177 

00233 

016437R 


JSB 

ADDIT 


0178 

00234 

0622 15R 


LDA 

TART 1 


0179 

00235 

016437R 


JSB 

ADO I T 


0180 

00236 

062220R 


LDA 

TART2 


0181 

00237 

016437R 


JSB 

ADDIT 

’ ■" . ' . . !.'■■ ' 

0182 

00240 

06201 IX 


LDA 

LINKS 

NUMBER OF LINKS 

0183 

00241 

100200 


OCT 

100200 

MPY BY 10,000 

0184 

00242 

000675R 


OEF 

D10K 


0185 

00243 

072676R 


STA 

DIVSR 


0186 

00244 

104200 


OCT 

104200 

OLD THE SUM OF TIME TAGS 

0187 

0024 5 

000656R 


DEE 

ANS 

5-32 
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0188 

00246 

100400 


OCT 

100400 

0189 

00247 

000676R 


DEF 

DIVSR 

0190 

00250 

076656R 


STB 

ANS 

0191 

00251 

016012X 


JSB 

BIBCD 

0192 

00252 

072657R 


ST A 

ANS* 1 

0193 

00253 

062656R 


LDA 

ANS 

0194 

00254 

006400 


CLB 


0195 

00255 

100400 


OCT 

100400 

0196 

00256 

0000 1 1 X 


DEF 

LINKS 

0197 

00257 

016012X 


JSB 

BIBCD 

0198 

00260 

072660R 


STA 

AN8*2 

0199 

00261 

067352R 


LOB 

■ 0»8 

0200 

00262 

016307R 


JSB 

UNPK 

0201 

00263 

000657R 


DEF 

ANS*1 

0202 

00264 

1 26 1 6 1 R 


JMP 

DECOD , 1 

0203* 






0204 

00265 

000000 

PACK 

NOP 


0205 

00266 

072677R 


STA 

CNT2 

020 6 

00267 

002040 


SEZ 


0S3? 

00270 

026300R 


JMR 

ODD 

0208 

00271 

160001 

SENT 

LDA 

1,1 

0209 

00272 

001700 


ALF 


0210 

00273 

072670R 


STA 

TEMP2 

0211 

00274 

006004 


INB 


0212 

00275 

036677R 


ISZ 

CNT2 

0213 

00276 

002001 


RSS 


0214 

00277 

1 26265R 


JMP 

PACK,! 

0215 

00300 

062670R 

ODD 

LDA 

TEMP2 

0216 

00301 

130001 


IOR 

1,1 

0217 

00302 

006004 


INB 


0218 

0030 3 

0 1 650 1 R 


JSB 

PLACE 

0219 

00304 

036677R 


ISZ 

CNT2 

0220 

00305 

02627 1 R 


JMP 

SENT 

0221 

00306 

126265R 


JMP 

PACK, I 

0222* 






0223 

00307 

000000 

UNPK 

NOP 


0224 

00310 

076677R 


STB 

CNT2 

0225 

0031 1 

162307R 


LDA 

UNPK, I 

0226 

00312 

036307R 


ISZ 

UNPK 

0227 

00313 

072700R 


STA 

FIND 

0228* 






0229 

00314 

063353R 

AG1 

LDA 

■ D"*4 

0230 

00315 

07270 1 R 


STA 

CNT3 

0231 

00316 

1 62700R 


LDA 

FIND, I 

0232 

00317 

036700R 


ISZ 

FIND 

0233 

00320 

072702R 


STA 

TEMPI 

0234* 






0235 

00321 

062702R 

AG2 

LDA 

TEMPI 

0236 

00322 

001700 


ALF 


0237 

00323 

072702R 


STA 

TEMPI 

0238 

00324 

013354R 


AND 

■ B 1 7 

0239 

00325 

172673R 


STA 

MODO, I 

0240 

00326 

03667 3R 


ISZ 

MODO 

0241 

00327 

036677R 


ISZ 

CNT2 

0242 

00330 

002001 


RSS 


0243 

00331 

126307R 


JMP 

UNPK, I 

0244 

00332 

03670 IP 


ISZ 

CNT3 


5-33 


DIVIDE BY 30000 

SAVE REMAINDER 
CONVERT SECONDS TO BCD 

CONVERT MS TO BCD 

DIVIDE BY 3 

ADDRESS OP NUMBER OP LINKS 


UNPACK THE S DIGITS 


EXIT 


NUMBER OP DIGITS TO PACK 
ODD PACK 

PICK UP BCD DIGIT 

POSITION 

SAVE CHAR, 

BUMP ADDRESS 
ALL CHARS, PICKED UP T 
NO I GET NEXT ONE 
YESI EXIT 

COMBINE 2 BCD OIGITS 

BUMP ADDRESS 
. PACK POR MODEM 
ALL DONE ? 

NO I PICK UP NEXT CHAR, 
YESI EXIT 


NUMBER OP DIGITS TO UNPACK 


COUNTER POR 4 BCD DIG, PER MORD 


SAVE DIGITS 


ROTATE HIGH DIGIT TO LOW ORDER 
MASK DIGIT 

PUT IT AWAY IN TEMP AREA 

ALL DIGITS UNPACKED f 
NO I 

YESI EXIT 

4 DIGITS UNPAXED T 
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0245 

00333 

02632 1 R 


JMP 

AG2 

0246 

00334 

026314R 


JMP 

AG! 

0247* 






0248 

00335 

000000 

TDIGS 

NOP 


0249 

00336 

016472R 


JSB 

SAVES 

0250 

00337 

166335R 


LD8 

TDIGS, I 

0251 

00340 

03633SR 


ISZ 

TDIGS 

0252 

80341 

002400 


CLA 


0253 

00342 

07 254 2 R 


STA 

t • • l« 

0254 

00343 

104200 


OCT 

104200 

0255 

00344 

100001 


DEF 

1,1 

0256 

00345 

002021 


SSA , 

RSS 

0257 

00346 

02635 4 R 


JMP 

Mil 

0258 

00347 

003100 


CMA » 

CLE 

0259 

00350 

007004 


CMB , 

INB 

0260 

00351 

002040 


SEZ 


0261 

00352 

002004 


INA 


0262 

00353 

036642R 


ISZ 

• Mil 

0263 

00354 

104400 

• • • * 

OCT 

104400 

0264 

00355 

000643R 

..OFF 

DEF 

.OFF 

0265 

00356 

002003 


SZA, 

RSS 

0266 

00357 

006002 


SZB 


0267 

00360 

026367R 


JMP 

NZERO 

0268* 






0269 

00361 

067344R 


LDB 

«D-10 

0270 

00362 

172673R 


STA 

MODO.I 

0271 

00363 

036673R 


ISZ 

MODO 

0272 

00364 

006006 


INB, 

SZB 

0273 

00365 

026362R 


JMP 

*-3 

0274 

00366 

126335R 


JMP 

TDIGS, I 

0275* 






0276 

00367 

016013X 

NZERO 

JSB 

BTD 

0277 

00370 

000643R 


DEF 

.OFF 

0278 

00371 

000664R 


OEF 

DEC 

0279 

00372 

0 1 60 1 4 X 


JSB 

DMUL 

0280 

00373 

000664R 


DEF 

DEC 

0281 

00374 

000703R 


DEF 

T131 

0282 

00375 

000664R 


DEF 

DEC 

0283 

00376 

062355R 


LDA 

..OFF 

0284 

00377 

002004 


INA 


0285 

00400 

072402R 


STA 

*♦2 

0286 

00401 

016013X 


JSB 

BTD 

0287 

00402 

000000 


NOP 


0288 

00403 

000707R 


DEF 

OEC1 

0289 

00404 

0 1 60 1 5 X 


JSB 

DADD 

0290 

00405 

000664R 


DEF 

DEC 

0291 

00406 

000707R 


DEF 

DEC! 

0292 

00407 

000656R 

ANSY 

DEF 

ANS 

0293 

00410 

062642R 


LDA 


0294 

0041 1 

002002 


SZA 


0295 

00412 

036656R 


ISZ 

ANS 

0296 

00413 

0 1 60 1 SX 


JSB 

DADD 

0297 

00414 

000656R 


DEF 

ANS 

0298 

00415 

000000 

ADDR 

NOP 


0299 

00416 

000656R 


OEF 

ANS 

0300 

00417 

063340 R 


LDA 

■ D-2 

0301 

00420 

016453R 


JSB 

SHIFT 


5-34 


NO I GET NEXT ONE 
PICK UP NEXT WORD 


IF IT IS A BAD POINT 
PUT 0«S IN BUFFER 

SET SIGN TO PLUS 
OLD 1,1 

NEGATIVE NO. 7 

NO I POSITIVE 

YES I 2 ' S COMPLIMENT 


SET SIGN TO NEGATIVE 
DST 


CONVERT MS DIGITS OF NUMBER 

TO decimal 

MULTIPLY BY 131,072 


CONVERT LS DIGITS TO DECIMAL 


ADD THE 2 TOGETHER 


SIGN OF NO. 

ADJUST SIGN 
ADD N5T5 


IF THE ANSWER IS IN NANO SEC, 
ADJUST THE. DIGITS. IF NOT ????t 
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0302 

00421 

067344R 


LOB 

■D-10 

0303 

00422 

016307R 


JSB 

UNPK 

0304 

00423 

000657R 


DEF 

ANS*i 

0305 

00424 

126335R 


JMP 

TOIGS, I 

0306* 






0307 

00425 

000000 

SEDIG 

NOP 


0308 

00426 

0 1 6 4 7 2 R 


JSB 

SAVES 

0309 

00427 

066407R 


LDB 

ANSY 

0310 

00430 

016010X 


JSB 

MOVE 

0311 

00431 

063355R 


LDA 

■ 0*5 

0312 

00432 

016453R 


JSB 

SHIFT 

0313 

00433 

067356R 


LDB 

■ 0-7 

0314 

00434 

016307R 


JSB 

UNPK 

0315 

00435 

000657R 


DEF 

ANS* 1 

0316 

00436 

126425R 


JMP 

SEDIG, I 

0317* 






0318 

00437 

000000 

ADDIT 

NOP 


0319 

00440 

043357R 


ADA 

■ B2 

0320 

00441 

104200 


OCT 

104200 

0321 

00442 

100000 


DEF 


0322 

00443 

000040 


CLE 


0323 

00444 

042656R 


ADA 

AN8 

0324 

00445 

002040 


SEZ 


0325 

00446 

006004 


INB 


0326 

00447 

046657R 


ADB 

ANS+1 

0327 

00450 

104400 


OCT 

104400 

0328 

00451 

000656R 


OEF 

ANS 

0329 

00452 

126437R 


JMP 

ADDIT, I 

0330* 






0331 

00453 

000000 

SHIFT 

NOP 


0332 

00454 

072664R 


STA 

DEC 

0333 

00455 

062656R 


LDA 

ANS 

0334 

00456 

001727 


ALF, 

ALF 

0335 

00457 

013360R 


AND 

• B 1 7 7 

0336 

00460 

042564R 


ADA 

DEC 

0337 

00461 

003004 


CMA, 

INA 

0338 

00462 

072664R 


STA 

DEC 

0339 

00463 

002021 


SSA , 

RSS 

0340 

00464 

126453R 


JMP 

SHIFT, I 

0341 

00465 

062407R 


LOA 

ANSY 

0342 

00466 

016016X 


JSB 

SHAME 

0343 

00467 

0 3 66 6 4 R 


ISZ 

OEC 

0344 

00470 

026465R 


JMP 

*•3 

0345 

00471 

126453R 


JMP 

SHIFT, I 

0346* 






0347 

00472 

000000 

SAVES 

NOP 


0348 

00473 

0 7 2 4 1 5 R 


STA 

AODR 

0349 

00474 

062672R 


LDA 

MARK 

0350 

00475 

001020 


ALS, 

ALS 

0351 

00476 

042415R 


ADA 

ADDR 

0352 

00477 

072415R 


STA 

ADDR 

0353 

00500 

126472R 


JMP 

SAVES, I 

0354* 






0355 

00501 

000000 

PLACE 

NOP 


0356 

00502 

0367 1 4R 


ISZ 

XXXI 

0357 

00503 

026512R 


JMP 

WHY 

0358 

00504 

132713R 


I OR 

xxx. i 


. i 

5-35 


UNPACK 10 DIBITS 
EXIT 

HOVE NUH6EP INTO PROGRAM 

UNPACK 7 DIGITS 
EXIT 

ADDRESS OF TIME TAG 
DLD 0,1 

ADD PREVIOUS ANSWER 
DST AN8 

FETCH EXPONENT 

SCALING NUMBER 
SHIFT COUNTER 

IF IT IS A PLUS NO. ,TOO BAD HI 
SHIFT DIBITS RITE 


PAGE 0009 W01 * DECODE SUBROUTINE 


0359 

00505 

172713R 


0360 

00506 

036713R 


0361 

00507 

063340R 


0362 

00510 

072714R 


0363 

00511 

12650 1 R 


0364 

00512 

001727 

WHY 

0365 

00513 

132713R 


0366 

00514 

172713R 


0367 

00515 

126501R 


0368* 




0369 

00516 

000000 

MSX 

0370 

00517 

072636R 


0371 

00520 

063030R 


0372 

00521 

072637R 


0373 

00522 

063361 R 


0374 

80523 

072640R 


0375 

00524 

063353R 

MS10 

0376 

00525 

07264 1 R 


0377* 




0378 

00526 

002400 


0379 

00527 

172637P 


0380 

00530 

062636R 

MS20 

0361 

00531 

013354R 


0362 

00532 

070001 


0363 

00533 

162637R 


0384 

00534 

001700 


0365 

00535 

030001 


0386 

00536 

172637R 


0 387 

00537 

03664 1R 


0388 

00540 

026530R 


0389* 




0 390 

00541 

036637R 


0391 

00542 

836640R 


0392 

00543 

026524R 


0393 

00544 

126516R 


0394* 




0395 

00545 

000000 

MTX 

0396 

00546 

002003 


0397 

00547 

002004 


0398 

00550 

003004 


0399 

00551 

072640R 


0400 

00552 

067362R 


0401 

00553 

002400 


0402 

00554 

016017X 


0403 

00555 

006006 


0404 

00556 

026553R 


0405 

00557 

062632R 

MT10 

0406 

00560 

801727 


0407 

00561 

016017X 


0406 

00562 

062632R 


0409 

00563 

016017X 


0410 

00564 

062633R 


0411 

00565 

031727 


0412 

00566 

0 1 60 1 7 X 


0413 

00567 

062633R 


0 414 

00 570 

016017X 


0415* 





ST A X XX # I 
ISZ XXX 
IDA *0-2 
ST.A XXXI 
JMP PLACE, I 

alf,alf 
IOR XXX, I 
STA XXX, I 
JMP PLACE, I 

NOP MODEM SET 

STA VALUE 

LDA INDEX 

STA POINT 

LDA *0*198 

STA COUNR 

LDA *0*4 

STA CNTR 

CLA 

STA POINT, I 
LDA VALUE 
AND *B 1 7 
STA 1 

LDA POINT, I 

ALF 

IOR 1 

STA POINT, I 
ISZ CNTR 
JMP MS20 

ISZ POINT 
ISZ COUNR 
JMP MS 10 
JMP MSX , I 

NOP MODEM SEND 

SZA , RSS 

INA 

CMA, INA 
STA COUNR 

LDB *0*400 SEND PREAMBLE 

CLA 

JSB SEND 
INB, SZB 
JMP *-3 

LDA TAB SEND SYNC 

ALF, ALF 

JSB SEND 

LDA TAB 

JSB SEND 

LDA TAB*1 

ALF. ALF 

JSB SEND 

LDA TAB+1 

JSB SEND 
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0416 

0417 
04 1 B 
0419 
0 420 
0421 
0 422 

0423 

0424 

0425 

0426 

0427 

0428 

0429 

0430 
0431* 

0432 

0433 

0434 

0435 

0436 

0437 
0436 

0439 

0440 
0441* 

0442 

0443 

0444 

0445 

0446 

0447 

0448 

0449 

0450 
0451* 

0452 

0453 

0454 

0455 

0456 

0457 

0458 

0459 

0460 

0461 

0462 

0463 

0464 

0465 

0466 

0467 

0468 
0 469 

0470 

0471 

0472 


00571 063361R 

00572 072641 R 

00573 063030R 

00574 072637R 

00575 162837R MT20 

00576 001727 

00577 016610R 

00600 16263 7 R 

00601 016610R 

00602 036637R 

00603 036641R 

00604 026575R 

00605 036640R 

00606 026557R 

00607 126545R 

00610 000000 

00611 016621R 

00612 076635R 

00613 016621R 

00614 005700 

00615 060001 

00616 032635R 

00617 016017X 

00620 1 2.601 BR. 

00621 000000 

00622 067353R 

00623 076634R 

00624 006400 

00625 001500 

00626 005600 

00627 036634R 

00630 026625R 

00631 126621R 

00632 004214 

00633 147357 

00634 000000 

00635 000000 

00636 000000 

00637 000000 

00640 000000 

00641 000000 

00642 000000 

00643 000000 

00645 000000 

00646 000000 

00647 000000 

00650 000000 

00651 000000 

00652 000000 

00653 000000 

00654 000000 

00655 000000 

00656 000000 
00664 000S03 


LDA ■0*190 
STA CNTR 
LDA INDEX 
STA POINT 
LOA POINT, I 
ALF, ALF 
JSB REM 
LDA POINT, I 
JSB REW 
ISZ POINT 
ISZ CNTR 
JMP MT20 
ISZ COUNR 
JMP MT10 
JMP MTX, I 


REW 

NOP 



JSB 

SHFT 


STB 

SAVER 


JSB 

BLF 

SHFT 


LOA 

1 


IOR 

SAVER 


JSB 

SEND' 


JMP 

REW, I 

shft 

NOP 



LOB 

■ 0*4 


STB 

CLB 

ERA 

ELB 

CNTR 1 


ISZ 

CNTRl 


JMP 

*-3 


JMP 

SHFT, I 

TAB 

OCT 

4214 


OCT 

147357 

CNTR1 

NOP 


SAVER 

NOP 


VALUE 

NOP 


POINT 

NOP 


COUNR 

NOP 


CNTR 

NOP 



NOP 


.OFF 

BSS 

2 

COUNT 

NOP 


R.COA 

NOP 


TAR1 

NOP 


R.TA1 

NOP 


TAR2 

NOP 


R.TA2 

NOP 


CNT1 

NOP 


FIXD 

NOP 


CNT 

NOP 


AN8 

BSS 

6 

DEC BSS 4 


5-: 

37 



REVERSE BITS 


0 , 10 . 10,14 
14 , 10 , 10,17 
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0473 00670 000000 TEMP2 NOP 

0474 00671 000000 START NOP 

0475 00672 000000 MARK NOP 

0476 00673 000000 MOOO NOP 

0477 00674 072460 D30K DEC 30000 

0476 00675 023420 D10K DEC 10000 

0479 00676 000000 01 VSR NOP 

0480 00677 000000 CNT2 NOP 

0481 00700 000000 FINO NOP 

0482 00701 000000 CNT3 NOP 

0483 00702 000000 TEMPI NOP 

0484 00703 000000 T131 OCT 0,0,23,10162 

00704 000000 

00705 000023 

00706 010162 

0485 00707 000000 DEC 1 BSS 4 

0486 00713 000000 XXX NOP 

0487 00714 000000 XXXI NOP 

0488 00715 000716R MOOT DEF 

0489 00716 000000 BSS 10 

0490 00730 000000 MODE NOP 

0491 00731 000000 BSS 3 

0492 00734 0B0735R B570 DEF **1 

0493 00735 000000 BSS 99 

0494 01030 00 1 03 1 R INOEX DEF 

0495 01031 000000 BSS 198 

01337 000305 ‘ 

01340 177776 

01341 177762 

01342 177775 

01343 000005 

01344 177766 

01345 000024 

01346 177756 

01347 177705 

01350 000004 

01351 177742 

01352 177770 

01353 177774 

01354 000017 

01355 177773 

01356 177771 

01357 000002 

01360 000177 

01361 177472 

01362 177160 

0496 END 

** NO ERRORS! AMD ASMS, 251 17*402510 
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0001 

ASMB,R,B, 

0003 00000 

NAM 

0004 

ENT 

0009 

EXT 

0006 

EXT 

0007* 


0008*** 6MAR75 


0009* 



N5A 

N5A 

D3UB, DADD, DDIV, OMUL, OTBI 
BTD # N.VAL,MOOE,IN0C,IN0Tl,IN0T2 


0010 * 

0011 * 

0012 * 

0013* 

0014* 

0015* 

0016* 

0017* 


N5AI AMBIGUITY REMOVAL ROUTINE 
CALL » LDB LINK 
J SB N5 A 

OEF RDNGS AOOR OF LOW TONE RDNG 
OtF FD „ A FIXED DELAYS 

OEF N5 ADR AOOR FOR 

DEF DN5 RESULTS 


0019* **************** 


0020 



SUP 




0021* 







0022 

00000 

000000 N5A 

NOP 




0023 

00001 

076406R 

STB 

LINK 



0024 

00002 

166000R 

LOB 

N5A, I 

AODR 

OF 35HZ RDNG 

0025 

00003 

0 7 6 0 6 1 R 

STB 

R35H 



0026 

00004 

076074R 

STB 

R035 



00 27 

00005 

046410R 

ADB 

.4 

ADOR 

OF 283HZ RDNG 

0020 

00006 

076103R 

STB 

R263A 



0029 

00007 

076107R 

STB 

R283B 



0030 

00010 

0464 10R 

A06 

.4 

AODR 

OF 4K RDNG 

0031 

0001 1 

0761 16R 

STB 

. 4K AD 



0032 

00012 

076122R 

STB 

R4KA 



0033 

00013 

0 46 4 1 0 R 

ADB 

.4 

ADDR OF 27. 7K HZ RDNG 

0034 

00014 

076131R 

STB 

R27K 



0035 

00015 

076135R 

STB 

R27KA 



0036 

00016 

036000R 

ISZ 

N5A 



0037 

00017 

166000R 

LDB 

N5A, I 

ADDR 

OF FIXED DELAYS 

0038 

00020 

076062R 

STB 

FD35 



0039 

00021 

046410R 

ADB 

.4 



00 40 

00022 

076104R 

STB 

FD283 



0041 

00023 

046410R 

ADB 

.4 



0042 

00024 

076117R 

STB 

FD4K 



0043 

00025 

0464 1 0R 

ADB 

.4 



0044 

00026 

076132R 

STB 

FD27K 



0045 

00027 

036000R 

ISZ 

N5A 



0046 

00030 

1 66000R 

LDB 

N5A, I 

ADDR 

! FOR N5CEST) 

0047 

00031 

076165R 

STB 

N5A0R 



0048 

00032 

076170R 

STB 

N5ADI 



0049 

00033 

076156R 

STB 

N5AD4 



0050 

00034 

036000R 

ISZ 

N5A 



0051 

00035 

166000R 

LDB 

N5A , I 

ADDR 

FOR DN(EST) 

0052 

00036 

076200R 

STB 

DN5AD 



0053 

00037 

036000R 

ISZ 

N5A 



0054* 







0055 

000 40 

062406R 

LDA 

LINK 

GET 

RANGE ESTIMATE 

0056 

00041 

066013X 

LDB 

IN0T2 



0057 

00042 

002003 

SZA, 

RSS 



0058 

00043 

06601 IX 

LDB 

I NBC 
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0099 

00044 

000010 


SLA 


0060 

00045 

066012X 


LDB 

IN0T1 

0061 

00046 

076050R 


STB 

*♦2 

0062 

00047 

016004X 


JSB 

OMUL 

0063 

00090 

000000 


NOP 


0064 

00051 

000421R 


DEF 

02 

0065 

00052 

000366R 


DEF 

N.EST 

0066* 






0067 

00053 

062010X 


LDA 

MODE 

0066 

00054 

092407R 


CPA 

.2 

0069 

00055 

026354R 


JHP 

BMODE 

0070 

00056 

052410R 


CPA 

.4 

0071 

00057 

026357R 


JMP 

CMOOE 

0072* 






0073*< 

> PROCESS 35 . t 

1 HZ READING 

0074* 






0075 

00060 

016266R 


JSB 

PEROD 

0076 

00061 

000000 

R3SH 

NOP 


0077 

00062 

000000 

FD35 

NOP 


0076 

00063 

000441R 


OEF 

T1 

0079* 






0060 

00064 

016337R 


JSB 

METER 

0061 

00065 

000441R 


OEF 

T1 

0062 

00066 

016323R 


JSB 

, INT 

0083* 






0084 

00067 

016004X 


JSB 

OMUL 

0065 

00070 

000372R 


DEF 

ONE ST 

0066 

00071 

000441 R 


DEF 

TI 

0067 

00072 

000376R 


DEF 

DTE8T 

0088* 






0089 

00073 

016202R 


JSB 

WAVE 

0090 

00074 

000000 

RD35 

NOP 


0081* 






0092 

00075 

016323R 

BMO 

JSB 

.INT 

0093* 






0094 

00076 

016004X 


JSB 

DMUL 

0095 

00077 

000372R 


DEF 

ONEST 

0096 

00100 

000445R 


DEF 

T2 

0097 

00101 

000376R 


DEF 

OTEST 

0096* 






0099* 






0100** 

r PROCESS 283 

HZ READING 

0101* 






0102 

00102 

016266R 


JSB 

PEROD 

0103 

00103 

000000 

R283A 

NOP 


0104 

00104 

000000 

FD283 

NOP 


0105 

00105 

000445R 


DEF 

T2 

0106* 






0107 

00106 

016202R 


JSB 

NAVE 

0108 

00107 

000000 

R283B 

NOP 


0109* 






0110 

00110 

016323R 

CMO 

JSB 

.INT 

0111* 






0112 

00111 

016004X 


JSB 

DMUL 

0113 

00112 

000372R 


OEF 

ONEST 

0114 

00113 

000491R 


DEF 

T3 

0115 

00114 

000378R 


OEF 

DTEST 


5-41 


GET 2 NAY RANGE 


MODE C T 
YES. 

CK FOR PERIOD CHANGE 


COMPUTE Nl*DNl 

CONV TO INT I OEC PARTS 


EST OF 39 HZ READING 
WAVELENGTH TEST 


CONV TO INT I DEC PARTS 
CONVERT DNS TO « OF SECONDS 
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0116* 

0117*** PROCESS 3.968 KHZ READING 
0118* 

0119 00116 016266R J3B PEROD 

0120 00116 000000 ,4KAD NOP 

0121 00117 000000 FD4K NOP 

0122 00120 000451R DEF T3 

0123* 

0124 00121 016202R JSB WAVE 

0125 00122 000000 R4K A NOP 

0126* 

0127 00123 016323R JSB .INT CONV TO INT « DEC PART 

0128* 

0129 00124 016004X JSB DMUL 

0130 00125 000372R DEF DNEST 

0131 00126 000455R DEF T4 

0132 00127 000376R DEF DTEST 

0133* 

0134** PROCESS 27.7 KHZ READING 
0135* 

0136 00130 016266R JSB PEROO 

0137 00131 000000 R27K NOP 

0138 00132 000000 FD27K NOP 

0139 00133 000455R DEF T4 

0140* 

0141 00134 016202R JSB WAVE 

0142 00135 000000 R27KA NOP 

0143* 

0144 00136 016001X JSB DSUB 

0145 00137 000362R DEF NDN.E 

0146 00140 00P411R DEF D60K 

0147 00141 000402R DEF DELTA 

0148* 

0149 00142 062402R LDA DELTA 

0150 00143 000010 SLA 

0151 00144 026160R JMP MINUS 

0152* 

0153 00145 016003X JSB DTBI 

0154 00146 000402R DEF DELTA 

0155 00147 000465R DEF NI 

0156 00150 0 1 6 0 0 6 X JSB BTD 

0157 00151 000465R DEF NI 

0158 00152 000402R DEF DELTA 

0159* 

0160 00153 016002X JSB DADD 

0161 00154 000402R DEF DELTA 

0162 00155 000 4 1 1 R DEF D60K 

0163 00156 000000 N5AD4 NOP 

0164 00157 026166R JMP N5ADR* 1 

0165* 

0166 00160 016005X MINUS JSB DTBI 

0167 00161 000362R DEF NDN.E 

0168 00162 000465R DEF NI 

0169* 

0170 00163 016006X JSB BTD 

0171 00164 000465R DEF NI 

0172 00165 000000 N5 ADR NOP 

5-42 
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0173* 

0174 

00166 

016001V 


J8B 

DSUB 


0175 

00167 

000362R 


DEF 

NDN.E 


0176 

00170 

000000 

N5AD1 

NOP 



0177 

00171 

000372R 


DEF 

ONEST 


0178* 

0179 

00172 

016004X 


JSB 

OMUL 


0180 

00173 

000372R 


DEF 

ONEST 


0181 

00174 

000461R 


DEF 

T5 


0182 

0183* 

00175 

000376R 


DEF 

OTEST 

■ DNSA (ESTIMATE) 

0184 

00176 

016005X 


JSB 

DTBI 


0185 

00177 

000376R 


DEF 

DTEST 


0186 

0187* 

00200 

000000 

DNS AO 

NOP 


INTEGER « OF NANSECONDS 

0188 

0189* 

0190* 

00201 

126000R 


JMP 

N5A, I 

RETURN, 

0191* 

wavelength test SUBROUTINE **** 

0192 

00202 

000000 

WAVE 

NOP 



0193 

00203 

162202R 


LOA 

WAVE, I 


0194 

00204 

036202R 


ISZ 

WAVE 


0195 

00205 

07221 4R 


3TA 

R1 


0196 

0197* 

00206 

072257R 


STA 

R2 


0198 

00207 

016003X 


JSB 

DDIV 

DIVIDE PERIOD BY 2 

0199 

08210 

000000 

TN03 

NOP 



0200 

00211 

80042 1R 


DEF 

D2 


0201 

0202* 

00212 

000431 R 


DEF 

HAF 


0203 

00213 

0 1 6001 X 


JSB 

DSUB 

DELTA • DN.M • ONEST 

0204 

00214 

000000 

R1 

NOP 



0205 

00215 

000376R 


DEF 

DTEST 


0206 

0207* 

00216 

000402R 


DEF 

DELTA 


0208 

00217 

062482R 


LDA 

DELTA 


0209 

00220 

000010 


SLA 


DELTA POSITIVE 1 

0210 

00221 

026236R 


JMP 

NEG 

NO, 

0211 

00222 

0 1 600 1 X 


JSB 

DSUB 

YES. >0,5 ? 

0212 

00223 

000402R 


DEF 

DELTA 


0213 

00224 

000431R 


DEF 

HAF 


0214 

0215* 

00225 

000402R 

i. : !' 

DEF 

DELTA 


0216 

00226 

062402R 


LDA 

DELTA 

STILL POSITIVE ? 

0217 

00227 

000010 


SLA 



0218 

00230 

026251R 


JMP 

DOWN 

NO, N.EST IS OK 

0219 

00231 

016001X 


JSB 

DSUB 

YES, 

0220 

00232 

000366R 


DEF 

N.EST 

N.EST * N.EST • 1 

0221 

00233 

000415R 


DEF 

Dt 


0222 

00234 

000366R 


DEF 

N.EST 


0223 

0224* 

00235 

026251R 


JMP 

DOWN 

RETURN. 

0225 

00236 

016002X 

NEC 

JSB 

DADD 

ADD ,5 TO DELTA TO 

0226 

00237 

000402R 


DEF 

DELTA 

TEST IF < -0.5 

0227 

00240 

00043 1R 


DEF 

HAF 


0228 

08241 

000 402 R 


DEF 

DELTA 


0229 

00242 

062402R 


LOA 

DELTA 

STILL NEGATIVE ? 





5 
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0230 

00243 

002011 


SLA, 

i RSS 

0231 

00244 

026231R 


JMP 

DOWN 

0232* 

- 





0233 

00245 

016002X 


JSB DADO 

0234 

00246 

000366R 


DEF 

N.EST 

0233 

00247 

00041 SR 


DEF 

01 

0236 

00230 

000366R 


DEF 

N.EST 

0237 

00251 

0 1 6004 X 

DOWN 

JSB 

OMUL 

0236 

00232 

000366R 


DEF 

N.EST 

0239 

00253 

000000 

TNOl 

NOP 


0240 

00254 

000362R 


DEF 

NDN.E 

0241* 






0242 

00255 

016002X 


JSB 

DADD 

0243 

00256 

000362R 


DEF 

NDN.E 

0244 

00237 

000000 

R2 

NOP 


0243 

00260 

000362R 


DEF 

NON.E 

0246* 






0247 

00261 

016003X 


JSB 

DDIV 

0246 

00262 

000 362 R 


DEF 

NON.E 

0249 

00263 

000000 

TN02 

NOP 


0250 

00264 

000362R 


OEF 

NDN.E 

0251 

00265 

126202R 


JMP 

W AVE , I 

0252** 





0253 

00266 

000000 

PEROD 

NOP 


0254 

00267 

162266R 


LDA 

PEROD, I 

0255 

00270 

036266R 


ISZ 

PEROD 

0256 

00271 

072310R 


STA 

FROM 

0257 

00272 

072317R 


STA 

FROM 1 

0258 

00273 

0723 1 2R 


STA 

TO 

0259 

00274 

072321 R 


STA 

TOl 

0260 

00275 

162266R 


LDA 

PEROD, I 

0261 

00276 

036266R 


ISZ 

PEROD 

0262 

00277 

0723 1 1 R 


STA 

DELAY 

0263 

00300 

1 62266R 


LDA 

PEROD,! 

0264 

00301 

036266R 


ISZ 

PEROD 

0265 

00302 

072320R 


STA 

TNO 

0266 

00303 

072253R 


STA 

TNOl 

0267 

00304 

072210R 


STA 

TN03 

0268 

08305 

042410R 


ADA 

■ 4 

0269 

00306 

072263R 


STA 

TN02 

0270* 






0271 

00307 

016001 X 


JSB 

DSUB 

0272 

80310 

000000 

FROM 

NOP 


0273 

80311 

000000 

DELAY 

NOP 


0274 

90312 

000000 

TO 

NOP 


0275* 






0276 

00313 

162312R 


LDA 

TO, I 

0277 

00314 

002011 


SLA 

, RSS 

0278 

0,3315 

126266R 


JMP 

PEROD, I 

0279 

80316 

016002X 


JSB 

DADD 

0280 

00317 

000000 

FROM1 

NOP 


0281 

4! 0320 

000000 

TNO 

NOP 


0282 

00321 

000000 

TOl 

NOP 


0283 

08322 

126266R 


JMP 

PEROD, I 

0284* 






0283*** SUBROUTINE 

TO CALC INTEGER 8 

0286* 







YES, ADO ONE TO N 
NO, N IS OK 


SOLVE FOR N 


N*DN 


READING 


FIXED DELAY 
T VALUE 

NEXT T VALUE 
8UBTRACT FIXED DELAY 


NEGATIVE ? 

NO I EXIT 

YES I ADD 1 PERIOD 


EXIT 

DEC PART OF NON 


5-44 


REPRODUCIBILITY OP THE 
ORIGINAL PAGE IS POOR 


PAGE 

0007 *01 * * * NS A t AMBIGUITY REMI 

0287 

00323 

000000 

.INT 

NOP 


0286 

00324 

0 1 6005 X 


JSB 

DTBI 

0289 

00325 

000362R 


DEF 

NDN.E 

0290 

00326 

00046SR 


DEF 

NI 

0291* 






0292 

00327 

0 1 6 0 0 6 X 


JSB 

BTD 

0293 

00330 

000465R 


DEF 

NI 

0294 

00331 

000366R 


DEF 

N.EST 

0295* 






0296 

00332 

0 1600 1 X 


JSB 

DSUB 

0297 

00333 

000362R 


DEF 

NDN.E 

0298 

00334 

000366R 


DEF 

N.EST 

0299 

00335 

000372R 


DEF 

DNEST 

0300 

00336 

126323R 


JMP 

.INT, I 

0301* 






0302*** COMPUTE N*DN 



0303* 






0304 

00337 

000000 

METER 

NOP 


0305 

00340 

162337R 


LDA 

METER, I 

0306 

00341 

036337R 


ISZ 

METER 

0307 

00342 

072344R 


STA 

TONE 

0308 

00343 

016004X 


JSB 

OMUL 

0309 

00344 

000000 

TONE 

NOP 


0310 

00345 

000435R 


DEF 

LIGHT 

0311 

00346 

000425R 


DEF 

LAM 

0312 

00347 

016003X 


JSB 

DDI V 

0313 

00350 

000366R 


DEF 

N.EST 

0314 

00351 

000425R 


DEF 

LAM 

0315 

00352 

000362R 


DEF 

NDN.E 

•0316 

00353 

126337R 


JMP 

METER, I 

0317* 






0318*** MODE B CALCULATION 


0319* 






0320 

00354 

016337R 

BMODE 

JSB 

METER 

0321 

00355 

000445R 


DEF 

T2 

0322 

00356 

026075R 


JMP 

BMO 

0323* 






0324*** MODE C CALCULATION 


0325* 






0326 

00357 

016337R 

CMODE 

JSB 

METER 

0327 

00360 

00045 1 R 


DEF 

T3 

0326 

00361 

026110R 


JMP 

CMO 


HP.Y PERIOD BY SPEED OF LITE 


ESTIMATE/LAMDA 


N2*0N2 


N3*DN3 
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M 

!' : 

j- 

i 


STORAGE AND CONSTANTS 



p pt *%¥ . A t Vt 

i ; ‘4, v 7: - * ' 


■#*]/!' » 
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P‘ r i£ 0006 #01 STOWAGE AND CONSTANTS 


0330* 

0331 

00362 

000000 

NDN.E 

BSS 

4 


0332 

00366 

000000 

N.EST 

BSS 

4 


0333 

00372 

000000 

DNEST 

BSS 

4 


0334 

00376 

000000 

DTEST 

BSS 

4 


0335 

00402 

000000 

DELTA 

BSS 

4 


0336 

0337 

00406 

00407 

000000 

000002 

LINK 

.2 

NOP 

DEC 

2 


0338 

00410 

000004 

• 4 

DEC 

4 


0339 

00411 

000000 

D60K 

OCT 

0 , 0 f 6 f 0 


0340 

00415 

105400 

D 1 

OCT 

105400,10000,0,0 


0341 

00421 

105400 

D2 

OCT 

105400,20000,0,0 


0342 

00425 

000000 

LAM 

BSS 

4 


0343 

00431 

000000 

HAF 

BSS 

4 


0344 

00435 

106000 

LIGHT 

OCT 

106000,24627,111105, 

61000 ,2997924562 

0345 

00441 

102000 

T1 

OCT 

102000,24042,40000,0 

28224000 

0346 

00445 

102400 

T2 

OCT 

102400,32450,0,0 

3526000 

0347 

00451 

103000 

T3 

OCT 

103000,22440,0,0 

252000 

0348 

00455 

103400 

T4 

OCT 

103400,33000,0,0 

36000 

0349 

00461 

104000 

T5 

OCT 

104000,50000,0,0 


0350 

0351 

00465 

000000 

Nl 

NOP 

END 



** NO 

1 ERRORS! AMD 

ASMB, 25117- 

40251 B 



REPRODUCIBILITY of the 
ORIGINAL PAGE IS POOR 
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p 


0002 »0t ***TRRR OPERATING SYSTEM*** 


0 MB 1 



ASM8,R,«,I 

„ 

0 00 3 

000 00 


NAM 

TRRR 

0 0 0 4 



ENT 

START, ,35FD,N. VAL, TTY ST, A77B,0KFLL 

0O05 



CNT 

CABLE, LINKS 

0000 



EXT 

.IOC., ARE A, TIME, POINT, CDA, TARSI, TARS? 

0 0 2! 7 



EXT 

TMARK, PRINT, RTOD,ETIM£, CLEAR, 00 NE,BTD 

0008 



tXT 

N5A,modEM,DDTA,TIMEX,TIMEY,CULL1 

Ht?M9 



EXT 

CULL2,RTTYB,FIX.0,RD0T , AO JUT 

Id* IP 



EXT 

BIBCO,OADD,DSUB,DTBI 

001 1 



EXT 

TTYDA,M5G1, MOD T, MODE 

WO 12 



EXT 

INPIC, INPT1 , IN0T2 , MOVE 

0*13 



EXT 

TTO, ABORT, LOCK 1,LINK2, LINKS, RUDOT 

*014 



EXT 

Bd200,BB27,BB39,BB283 

0*15 



EXT 

SPAN, TSPAN 

OP lb 



EXT 

RRADR , N5T5A 

*01/* 





0018** 

r* APR 15,1975 


*019* 





MP20 

00000 

0lb012X 

START J3d 

KTQO READ TIME OF 0 AY 

00? 1 

0 0 0 B 1 

010001 X 

JSB 

.IOC. CLEAR ALL DEVICES 

0022 

00002 

000000 

NOP 


00 23 

* o o o o 

O62037X 

LDA 

MSG 1 

00 2 4 

0 0 0 0 4 

0720O7R 

STA 

* + 3 

002b 

0 0 005 

0t>2 1 47R 

LDA 

*014 

0 0 2 o 

0 0 0 0b 

01 60 1 1 X 

J SB 1 

PRINT PRINT TIME OF 0 AY 

0027 

0 00 07 

000000 

NOP 


0 0 2 8 * 





o«2y 

0 W 0 1 0 

003400 

STRT A CCA 

STATUS CHECK COOE FOR TTY 

0*30 

00011 

O 1 o O 2 6 X 

JSB 

RTTYB INPUT LOOP TO UPDATE DATA BASE 

*031 

0 0012 

02o0 1 OR 

JMP 

*-2 

0033* 

RUN MODE 

* 



0O35 

00013 

o 6 2 0 0 2 X TTYST 

LOA AREA 

CLEAR 

ALL DATA 

00 3 6 

0O014 

042150R 

ADA *64 



00 37 

0 0 015 

070001 

STA 1 



0 0 38 

00 016 

001000 

ALS 



0039 

00017 

W400O 1 

ADA 1 



0040 

00020 

06600 5 X 

LOB CDA 



00 41 

00021 

0461 SIR 

AD8 *6*4 



00 42 

00022: 

0 160 1 4 X 

jsb clear 



0O43 

00023 

062152K 

LDA *048 

CLEAR 

FINAL AMBIGUITIES 

00 44 

00024 

M67627R 

LDB X35 



0045 

00025 

0 1 6 S 1 4 X 

JSB CLEAR 



0046 

00026 

062153R 

LOA *060 

clear 

fixed delays 

00 4 7 

000 27 

06 7 566 R 

LDB . 35FD 



00 48 

00030 

0 1 6 0 1 4 X 

JSB CLEAR 



0049 

00031 

062154K 

LDA *072 

clear 

AMBIGUITY TABLE 

0050 

00 032 

0 6 76 O 5 R 

Lub N.VAL 
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i a-av-ig... 



w A ' > t 1 v 1 4 *» 4 1 


***|RR* riHtWAflNU SYSTEM*** 



1UU44 

J 1 O A 1 4 X 

JSrt 

clear 

*s # *52 

0 0 *14 4 

u 6 60*2 A 

LO0 

RRAOR 

/» h wS 

0 -.-' 0 4 5 

Ub2l bbR 

LUA 

*0180 

r ' D 4 

:* -.j v a o 

U 1 r> -'1 1 4 X 

JSb 

CLEAk 


0 1‘ /• 0 7 

0 n o "i b 4 X 

t.i.»B 

NbT5A 


u t-. /i 4 M 

0-121 bSR 

L I) A 

= 0180 

tfvib/ 

,1 .: 0i 4 1 

ti l *> C’ 1 4 X 

J S b 

CLEAR 

im vi o y 

(•1 0 4 2 

•i n g y 2 4 X 

LDA 

CULL 1 

ul i' i b 

/ v> vi <i ;s 

0 0 2 -.1 u 4 

SZA 

,RSS 

v-1 i 4 f i v) 

01*0 4 4 

0o2lb«H 

LOA 

= 0-2(30 

i/i 6 1 

0 {i04a 

0. 720 24 X 

s r a 

CULL! 

vj w c 2 

0,'04b 

0 o 2 Cl 2 b X 

LOA 

CULL2 

• '’} ('■ t? 0 

(1H047 

0-1 0 4 

SZA 

t RSS 

W>>4 

uuubt. 

t b 2 1 5 7 R 

LOA 

=0-4600 

r.*ob 

WviC-ib 1 

''7?' 7 2bX 

STA 

CULL2 

P ^ b n 

H'/i 0 52 

ui b 2 v'; o M X 

LOA 

SPAN 

v * / 

i-i 0 /• 5 o 

P 7 2 7 b 1 k 

STA 

SPCN 

v* "* n o 

U.ipb4 

0 b 2 P o 1 X 

LUA 

TSP AN 

/• 1 6 4 
C l 0 / c> * 

id 11 0 b!) 

M72744R 

STA 

TEMPR 

U'.*7 1 

00 ^.i b b 

V. b 2 '/’ 4 2 X 

LUA 

IN0C 

v5 h / p 

0 i-i W b 7 

06760SR 

l Utt 

N, VAL 

0 0 7 4 

0j d 0 6 (i 

P 1 6 U 4 b X 

JSB 

MOVE 

*1 £* 7 4 

A "• 0. 0 1 

iis?P45X 

LUA 

IN0T1 .• 

W C* 7 B 

t-< v* M b 2 

V’ b 7 ri A 6 W 

LUb 

N0 T 1 

OU7p 

W »1 u -> 4 

y 1 6 0 4 b X 

JSH 

MOVE 

0-w 7 7 

0 0 M b 4 

0 b 2 (' 4 4 X 

LUA 

IN0T2 

MU 7 6 

n 0 0 b a 

U b 7 6 (1 / k 

LOB 

NUT 2 

fc-7 7 9 

VJ ^ C' If.- tE 

C-IbC'bb 

P 1 0 -'4 4 b X 

JSB 

MOVE 

h x 

ci '/• y & / 

0 0 2 P 4 6 x 

LUA 

TTC 

u Kf! 

ill'll 7 Vi 

1 iv 2 M 1 7 

UT A 

RX 


0 0 0 71 

0 1 0 0 1 4 X 

Jod 

L T I M E 

/. '/ y & 

0 -1 IV 7 2 

w b 4 3 5 4 R 

l.OA 

LOOPU 

00bb 
ii u y b * 

i0.->0 74 

1 7 1 U 1 K 

JSB 

TURN 

W067 

Me. Ill 7 4 

k o2 ib4X 

LUA 

Bb240 

0 U ft y 
0 0 6 9 * 

0 0-075 

u 1 o 0 b 4 X 

JSB 

RUOOT 

00 90 

■A 0 -2 7 b 

PlbPbWX GOT 1 

J SB 

LOCK 1 

0091 

0 M 0 7 / 

0 107-7.1 X 

JSB 

.IOC. 

011 9 2 

0 tl 1 M t'l 

Hi! Id S3 14 1 

ocr 

1 

00O0 

0i*. mi 

SUb' 0.1 x 

JSB 

.IOC. 

00 9 A 

UP 1 -i> 

m 2 y Ci id 4 

oc f 

20004 

0 095 

10410 4 

UPMwiR 

JrlR 

*-2 

009b 

M 0 1 0 4 

4 4 1F//4R 

OEF 

• 80FD 

0 0 97 

ft .i 1 m b 

M'/wru-i i 

DEC 

1 

0 0 9b 

W ’ 1 1 0 b 

u t ? :■)!-* «k 

JSH 

STATl 

0099 

0 0 10 7 

l- b 4 7 4 7 R 

LUA 

• 20FC 

0100 

U 0 11 W 

i» 7 5 5 0 3 * 

STA 

TITC 

0 1 0 l 

0011 1 

«1 671 oX 

JSB 

BTD 

0 1 02 

00112 

will 747 k 

UEP 

. 2 0 F C 

0 1 0 4 

•00 1 15 

Vi 4 1 7 4 / R 

UtF 

,20 PC 

0J 0 4 

00 1 1 4 

i'. 6 4 7 7 3 R 

L U A 

. 20F 1 

0105 

4 ■/' 1 1 b 

W 7 3 5 6 4 R 

STA 

TITT1 

■A 1 0 6 

*H - 1 lb 

4 1 6 / 1 6 X 

JSB 

BTD 

0 1 0 7 

10.-11 17 

-701 774K 

Ot F 

• ?0F 1 
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CLEAR RANGE * RANGE RATE TABLES 

IF CULL IS NOT SET , SET IT 
TO 200 


MOVE ESTIMATES TO N0 BUFFERS 


TARS TURN UN 
200 KHZ 

PRINT LOCKUP t WAIT FOR RESPONS 
CLEAR TTY 

HEAD 200 FIXED DELAY 


f-'Al.fc a tin 4 «idl * * * T R R R OPERATING SYSTEM#** 


Cl 1(18 iVl20 
0106 ^121 
M 1 1 0 0 0 1 2 2 

0111 ‘10123 

0112 00124 

0113 00125 
0114* 

0115 00126 

0116 M0127 

0117 00130 

0116 00131 

0119 00132 

0 120 0 0133 

0121 00134 

0122 00135 

0125 00156 

0 124 n 015/ 

0125 00140 

0126 00141 

0127 00142 

0 12 6 P 0 1 4 3 
0129 00144 

0 1 30* 

0131 00140 

0132 0014b 
0 1 3 3 * 


001773R 
062017P 
073565R 
01S016X 
00201 7R 
0 M 2 0 1 7 R 

002400 GOM 1 

073405R 

073404R 

062006Y 

07231 1R 

0 7 3 6 4 3 R 

0t>2006X 

072323R 

073644K 

0 6 2 0 0 7 X 

W72336R 

0/3645R 

062004X 

073374R 

072P34R 

H62055X 
0 1 6 0 5 3 X 


DEF , 20F 1 
LOA .20F2 
STA TITT2 
JS8 BTD 
UEF , 20F 2 
DEF . 20F2 

CLA 

STA PRIOR 
STA CNTR 
UO A CD A 
STA CKC 
STA RPTS 
LOA TARSI 
STA CK1 
STA RPTS+1 
LUA TARS2 
STA UK 2 
STA RPTS+2 
LOA POINT 
STA ACNT 
STA NUCNT 

LOA BB27 
JSb RUOOT 


INITIALIZE POINTERS 
AND MARKS 

DEF CDA 
DEF TAR 1 
DEF TAR2 

MAKE ACTUAL COUNT MAX POSSIBLE 
27,7 

ENCODE RANGE UNIT DRIVER 





VOLUME I. CD A SYSTEM MANUAL 



CALIBRATION-LOOP AND PERIOD 


CALIBRATION -LOOP ANO PERIOD* 


PAGE <1005 *01 


«13« 

M 4 1 4 7 

W17326R 

JSB 

CTR 

27 FIXED DELAY 

Ml 37 

44154 

MM1577H 

OEF 

• 27FD 


0138* 






0139 

04151 

4 6 2 4 5 6 X 

LL)A 

BB39 


10 1 4 Cl 

44152 

0 1 60 55 X 

JSB 

RUDOT 


0141 

41*153 

417326R 

JSB 

CTR 

3.9 FIXED DELAY 

0142 

40154 

0 0 1 5 7 4 « 

OEF 

• 39FD 


4143* 






4144 

00 155 

01 7U4R 

JSB 

fnl 

SEND 283 & 35 TONES IF 

4145 

40156 

4 0 1 5 7 1 R 

DEF 

# 28F0 

PROPER MODE 

4 1 4b 

04157 

0M1566R 

DEF 

• 35FD 


4147* 






M 1 4 6 

40 1 64 

402400 

CLA 


PRINT FIXED DELAY VALUES 

41 4 9 

00161 

017 1 44R 

JSb 

CALPT 


4154 

04162 

M63365R 

LOA 

LOOPI 


4151 

40163 

0 1 7 1 0 1 R 

JSB 

TURN 



101 52 * 


¥>■ ' *. 

& 


•*• * 
^ * 
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4 
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1 


P "t 0000 *0 1 * AMbIGU I TY REMOVAL* 


0155 0fllo 4 016027X JSB FIX.D COMPUTE FIXED DELAYS 

0156 00 1 65 001 727 R DEF ,35CF 

015? 0«lb5 0 1 6050 X GOT2 JSB I.OCKI 

0156a 

01 SR 00167 062041 X LUA MODE 

0160 00170 062150k CPA *84 

0161 00171 0 ? 6 ? 1 P) R JmP NN35C 

0162 001/2 052160R CPA *82 

0163 00173 026?m 1R JMp NN35B 

0104 001/4 0 6 3 3 o 6 k LUA LUOPX 

M105 00175 V 3 2 1 6 1 R IOR *82000 

0166 00176 102617 UTA RX 

0167 00177 0173268 JS0 CTR 

0166 0020M 0M1610R 0 1 (- Ni 

0lo9 00201 002057 X NN356 LDA 88283 

0170 00202 016053X JSb RUOOT 

0171 00203 0O3366R LDA LQUPX 

0172 00204 032162R IUR *B4000 

0173 002U5 102617 OTA RX 

0174 00206 017326R JSB CTR 

01/5 00207 0 Pi 1 6 1 3R OEF N£ 

0170 00210 062056X NN35C LDA 8839 

0177 0021 1 0 1 6 0 5 3 X JSB RUOOT 

0178 80212 01732OK JS8 CTR 

0l7y 00213 001616K UEF N3 

0160 00214 0O2P55X LOA B827 27,7 

0161 00215 fr) 1 6 3 5 3 X JSB RUOOT 

0162 00216 017326R JSd CTR N4 AMBIGUITY 

0183 00217 00 1 62 1 R DEF N4 

0184* 

0185 00220 W 6 2 0 5 4 X LUA B8200 

0186 00221 0 1 6 0 5 3 X JSb RUOOT 

0 1 H 7 * 

0108 00222 063365R LOA LOOPI 

0169 00223 0 1 7 10 1 R JSb TURN 
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RANGING OPERATION 


5-57 






v ^ 


PAGfc 8007 «l'il *KAnUING OPERATION* 


HI 92 
0190 

0.0224 

8022b 

0 1 o 8 1 2 X 
082400 


JSB 

CLA 

KTOO 

a 194 

814226 

07 202 2 X 


SI A 

TIMEX 

0 1 93 
H 1 96* 

80 227 

0 7 2 8 2 3 X 


sta 

TIMEY 

0197 

80230 

016081 X 


JSB 

.IOC. 

0196 

80231 

820003 


OCT 

20003 

Ml 99 

00232 

8 2 fa 2 3 0 R 


JMP 

*- 2 

8 280 

80233 

0 8 1 6 4 3 R 


DEF 

RPTS 

82M 
8 202* 

80234 

000800 

NUCNT 

NUP 


0 20 3 

0823b 

0/2404 


LLA 

, INA 

M2 0 4 

8 2 W 5 * 
8206 

8 8236 
08237 

8 1 7 1 4 4 R 
086400 


JSB 

CLB 

CALPT 


80240 

016017X- 


JSB 

N5A 

02Mb 

W0241 

0 8 2 8 2 7 R 


DEF 

NIC 

U2P9 

032 42 

88 l 727 K 


DtP 

• 35FC 

H2 10 

08243 

8 0 2 8 4 7 R 


DEF 

NSC 

8211 

0212* 

80244 

0 0 l 4 2 0 R 


DtF 

TCE 

02 US 

002.45 

M63428K 


LDA 

tce 

021 A 

08246 

8 4 3 b 6 3 R 


ADA 

TITC 

021b 

0024/ 

017246R 


JSB 

FnO 

0216 

0217* 

00258 

07 3 4 20 H 


STA 

TCE 

8218 

8 02 51 

816851 X 


JSB 

LINK2 

0219 

08252 

82638 1 R 


JMP 

NLNK 

0 220 

W0 2 bo 

006404 


CLB, 

t INB 

0221 

08 254 

0 1 6 8 1 7 X 


JSB 

NSA 

0222 

0i-i 25b 

002857R 


DEF 

N1T1 

0223 

U02bo 

001753K 


DtF 

• 35F 1 

8224 

0825/ 

8 8 2 8 7 7 R 


DEF 

N5T 1 

022b 

022b* 

0H260 

80 142 IK 


DEF 

TTIE 

0227 

03261 

M63421R 


LOA 

THE 

0228 

00262 

0435O4R 


ADA 

TITT1 

0229 

00263 

017246R 


JSB 

FND 

0230 

0231* 

00204 

0/ 342 1 R 


STA 

TTIE 

0232 

8026b 

M16852X 


JSB 

LINK3 

0233 

00266 

02630 1 R 


JMP 

NLNK 

0234 

08267 

0 6 6 1 6 8 R 


LOB 

*02 

023b 

00278 

01681 7X 


JSB 

N5A 

0236 

00271 

0 0 2 1 8 7 R 


DEF 

N1T2 

0237 

08272 

8017/7R 


Ufc'F 

.35F2 

0230 

00273 

802127R 


DEF 

N5T2 

0239 

0248* 

00274 

00 1 422R 


DEF 

TT2E 

0241 

08275 

0 6 3 A 2 2 W 


LDA 

TT2E 

0242 

082/6 

043565K 


ADA 

T1TT2 

0243 

002 77 

0172O6K 


JSB 

FND 

0244 

00380 

87 3 4 2 2 R 


STA 

TT2E 

0243 

00301 

002400 

NLNK 

CLA 

SE 

0246 

00302 

072416k 


STA 

PI1 

8247 

00303 

8/241/P 


STA 

PI 2 

0246 

0 0 30 4 

0 7 2 4 ? 0 R 


STA 

P13 

5-58 


CLEAR DIFFERENTIAL TIME MARKS 


START RANGING 


PRINT AMBIGUITY VALUES 


COMPUTE N5 
N1-N4 POINTERS 
FIXED DELAY POINTERS 
N (5) CDA RESULT 
T (5) ESTIMATE 

ADJUST FOR FIXED DELAYS 


CK FOR NO. OF COUNTERS WORKING 


SAME PARAMETERS AS ABOVE 


SAME PARAMETERS 


FOR WAVELENGTH CHECK 




or 


irjsawMj iriiwfii 


S IS * 


HAiifc 0U618 *01 *KA(^GING 0H6KAT ION* 
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POINT VERIFICATION 
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0252 

0030b 

06241 6R 

CHECK 

LUA 

PI1 

0253 
K 2 5 4 * 

0 0 30 7 

0 1 6 4 0 3 K 


JSB 

FAX 

li 2 b 5 

0M31 0 

0 1 7 2 b 4 R 


JSB 

STAT 

Y< 2 5 o 

00311 

y n o •? 0 y 

CKC 

NOP 


0257 

00 312 

0 2 6 3 1 O K 


JMP 

*-2 

02bh 

00 31 3 

0 1 7 o 1 VI R 


J SB 

MATH 

0259 

0 0 0 14 

0 P o 3 1 1 R 


DtF 

CKC 

0 260 

00 31 b 

0 0 1 4 2 0 R 


DEF 

TCE 

026 1 

0 0 310 

0 b 0 4 1 5 R 


LUB 

P I A 

a?*? 

0263* 

00317 

0 1 6364R 


JSfl 

BAPT 

A 26 4 

0 0 3 2 0 

01 600 IX 


JSB 

LINK2 

026b 

00 321 

H2 6 346K 


JMP 

CK3 

026 6 

00 0 2 2 

0 17254k 


JSB 

STAT 

0?67 

00323 

0 M 0 0 0 Vi 

CK 1 

NOP 


0 2 v 8 

0O32 4 

026322k 


JMP 

*-2 

02 6 9 

00 3 2b 

0 1 / w 1 0 k 


JSB 

MATH 

0?7v 1 

00 32b 

0i'O32 3 w 


DtF 

CK 1 

02/ 1 

0032 7 

0 0 1 4 2 1 R 


OEF 

TT1E 

02/2 
(' 2 y A 

0 0 33 B 
003 0 1 

0 6 b 4 1 bK 
0 vl 6 -X 0 4 


UDB 

INB 

P I A 

0 27 4 
M2/3* 

00332 

0 1 6 3 6 4 R 


JSB 

BAPT 

0 27 b 

0 0i 3 3 3 

0 1 6062 X 


JSB 

LINK3 

027 7 

0 0 334 

0 2 6 3 4 6 R 


JMP 

CK3 

02/ 8 

0 0 33b 

0 1 7254K 


JSB 

STAT 

027 y 

0033b 

00 0000 

CK2 

NOP 


0280 

00337 

026335R 


JMP 

*-2 

02 8 1 

00 340 

01 701 OR 


JSB 

HATH 

0282 

0034 1 

O 0 0 3 3 6 R 


DtF 

CK2 

0 2 h A 

00 3 42 

0O 1 4 2 2 R 


DtF 

TT2E 

02 8 4 

00343 

0664 1 bR 


LUB 

P I A 

0 2 8b 

0O344 

0 4 8 1 6 0 R 


ADB 

■D2 

0 2 8 6 
0 2 8 7 * 

003 4 6 

0 1 6 3 6 4 R 


JSB 

BAPT 

M288 

00346 

037 404R 

CK 3 

ISZ 

CNTR 

028y 

0 0 3 4 7 

y 6 3 4 0 4 R 


LOA 

CNTR 

0 2 90 

0 0 3 5 w 

053374k 


CPA 

ACNT 

02 91 
W 2 92 * 

003 51 

026423k 


JMP 

L AST 1 

0290 

00352 

06231 1 P 


LUA 

CKC 

0 29 4 

00 35 3 

0421 SB R 


AO A 

■ B4 

0 29 b 

0 0 3 5 4 

07231 1R 


S I A 

CKC 

0296 

0 »< 3 b 5 

0 6 2 32 3 K 


LDA 

CK 1 

0297 

0 0 3 56 

04215OR 


A U A 

*B4 

0298 

00357 

072323R 


ST A 

CK 1 

0299 

00 360 

062336R 


LDA 

CK2 

0 3 0 0 

0036 1 

0421 50 R 


ADA 

■ 84 

0 30 1 

00362 

0723 36R 


STA 

CK2 

0302 
0 303* 

VJ O 3 D 3 

026306K 


JhP 

CHECK 

0304 

003 to 4 

000300 

BART 

NUP 


030b 

0 036b 

052163R 


CPA 

*0-1 

0306 

003 66 

026375R 


JhP 

BPT 

0307 

O03 6 7 

062184k 


LDA 

■ D-5 

0 30 8 

003/ 0 

170001 


S FA 

1 F I 
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NOI SEE IF POINT READY 
NO I 

YES 1 VERIFY DATA POINT 


CHECK FOR BAD POINT 


CHECK TO SEE IF POINT IS READY 


UPDATE NUMBER COMPLETED 

CHECK FOP COMPLETION 
ALL POINTS VERIFIED 

NOT FINISHED YET 
UPDATE ALL POINTERS 


RESUME CHECKING OPERATION 


BAD POINT? 

YES 

NOI RESTORE COUNTER 


PAUL (£>P10 *point VERIFICATION* 


0309 

00371 

006004 

HI 

1NB 


0 3 1 8 

00372 

1 6000 1 


LUA 

1.1 

Will 

00373 

0 16403K 


JSB 

FAX 

0312 

00374 

1 2 6364 R 


JMP 

BAPT.I 

0 a 1 3 * 






0314 

0037 b 

160001 

BPT 

Lt)A 

ui 

031b 

0037b 

002R04 


IN A 


03 lb 

00377 

002021 


SSA, 

RSS 

0317 

00 4 00 

002400 


Cl. A 


0316 

0 0 40 1 

170001 


SI A 

1,1 

0319 

00 40 2 

026371 R 


J HP 

HI 

0 3 2 M * 






0 321 

0i 0 4 0 3 

001,1000 

FAX 

NUP 


0 32 2 

00 40 4 

0 6 6 0 2 6 X 


LUb 

CULL2 

0.323 

0040 5 

002003 


SZA, 

RSS 

0 32 4 

0 H 4 0 b 

0064K0 


CLB 


0326 

00407 

0 7 6 4 2 1 R 


STB 

HIXB 

0 3 2 6 * 






0327 

00 4 1 0 

066024X 


LUb 

CULL1 

0 326 

00 411 

M02'103 


SZA, 

PSS 

0329 

00412 

W 6 n 1 b b R 


LOB 

*0-2500 

0 330 

0 0 4 1 3 

076422R 


STB 

HIXC 

0331 

00 4 1 4 

1 2 6 4 0 3 R 


J HP 

FAX, I 

0332* 






0 3 33 

004 15 

000416k 

PI A 

UE F 


0 33 4 

00416 

0 ft 0 ft 0 0 

PI1 

NOP 


0335 

0M417 

000000 

P 12 

NUP 


0 33b 

00 4 2 R 

000000 

P 13 

NOP 


033/ 

00 4 21 

000000 

MIXB 

NUP 


0 3 36 

0 U 4 2 2 

000000 

NIXC 

NUP 
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0341* 






0342 

feH'423 

0374059 L AST 1 

162 

PH 109 

FINAL CALIBRATION DONE IF: 

0343 

00424 

0 1 o42bfl 

JSB 

LAST 

PRIOR * -1, OTHERWISE DO IT 

034 4 

0 0 420 

0264659 

JMP 

A9NQ 

THEN GO ON 

0343* 






034b 

00 42 6 

000000 LAST 

NOP 



0347 

0042/ 

062015X 

LD A 

DONE 

ACTUAL COUNT ON BASE PAGE 

034b 

0 0 430 

0733/4K 

STA 

ACNT 

STORE IN COMPARATOR 

0349* 






0350 

00431 

052055X 

LOA 

BB27 


0 351 

00432 

016053X 

JSB 

KUDtlT 


0352 

00433 

0 6 3 3 o 5 R 

LOA 

LOOPI 


0353 

00434 

0 1 7 1 0 1 R 

JSB 

TURN 


0334 

00430 

01 600 IX 

JSB 

.IOC. 

CLEAR CNT9S 

0353 

00 43b 

000003 B3 

OCT 

3 


0355* 






0357 

0 0437 

017326R 

JSB 

CTR 

FINAL AMBIGUITY 27 

0353 

0 0 4 4 0 

00 1 640R 

DEF 

X27 


0359* 






0360 

00441 

0 6 2 0 5 6 X 

LOA 

BB39 


0351 

00442 

016053X 

JSB 

RUDOT 


0352* 






03o3 

0 0 4 43 

0 1 7 3 2 6 R 

JSB 

CTR 

FINAL 3.9 

0354 

00444 

00 1 636R 

OEF 

X 39 


0355 

00445 

01/ 1109 

JSB 

fnl 

SEND 283 & 35 TONES 

0365 

00445 

0 3 1 6 3 2 R 

OEF 

X28 


0357 

00447 

0016279 

OEF 

X35 


0368* 






0 3b 9 

00450 

00.2400 

CLA 



0 37 0 

00451 

016053X 

JSB 

9U0QT 

TURN OFF RANGE UNIT DRIVER 

0 37 1* 






037 2 

00452 

063364R 

LOA 

LOOPO 


0373 

00453 

0320 46 X 

109 

TTO 

TARS TURN OFF 

0374 

00 4 54 

102617 

OTA 

RX 


0375 

00455 

0 1 6 0 1 3 X 

JSB 

ETIME 


0375 

02456 

0 6 3 3 6 4 R 

LOA 

LOOPO 


0 37 7 

00457 

102617 

OTA 

RX 


03/« 

004 60 

0621609 

LOA 

«B2 


0379 

00 4 51 

0 1 7 1 44R 

JSB 

calpt 

PRINT VALUES 

0350 

00462 

0633749 

LOA 

ACNT 


0351 

00463 

0720 1 5X 

STA 

DONE 


0382 

00464 

1 26426R 

JMP 

LAST, I 


0353* 






0354 

00465 

006400 ARNO 

CLB 



0355 

00466 

016017X 

JSB 

N5A 

COMPUTE FINAL N(5) 

0356 

00467 

001 647R 

OEF 

X35C 

AMBIGUITY VALUES 

0357 

00470 

0017279 

OEF 

• 35FC 

FIXED DELAYS 

0355 

00471 

0021339 DN5XC 

DEF 

N5XC 

result cda 

0359 

00472 

0014239 

OEF 

TEXC 

DELTA T ESTIMATE 

0390 * 






0391 

00473 

016051 X 

JSB 

LINK2 


0392 

00474 

0265139 

JMP 

NLNK1 


0393 

00 47 5 

006404 

CLB 

, I NB 


0394 

0W47O 

0 1 62 1 7 X 

JSB 

N5A 


0395 

00477 

0015679 

DEF 

X35T1 


0395 

00500 

0017539 

OEF 

• 3 5 F 1 


0397 

00501 

002137k D N 5 X 1 

OEF 

N5XT1 
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0 306 

0 0 50 2 

00 1 4269 


Ufcp 

TEXT1 



1/1399* 








0 4 0 tf) 

0 0 5 0 3 

016752X 


J .3 b 

LINKS 



6 4 le) 1 

0 0 50 4 

02651 39 


J Mp 

NL9K1 



0 402 

0 05 0 5 

0661609 


LOB 

*02 



0 4 H 3 

00 50b 

0 1 60 1 / X 


JSB 

N5A 



0 40 4 

0 0 5 0 7 

0 0170 79 


UfcF 

X35T2 



0 4 0 5 

0 0 510 

0017779 


Lit F 

. 35E2 



(4 4 0 0 

00311 

0021439 

DN5X2 

06 F 

N5XT2 



0 4iz-/ 

00512 

031 4249 


DkF 

TEXT2 



0 4 if! 8 * 








0 40 9 

00 513 

003400 

NLNK1 

CCA 




0 4) M 

00 51 4 

0 4337 49 


AO A 

ACNT 



041 1 

00515 

00 1 020 


ALS 

» ALS 



0 4 1 2 

00516 

07231 19 


STA 

CKC 



0 4 13 

00517 

0621669 


LOA 

= 5-2 



04 14 

0 0 520 

0733759 


STA 

THY 



V! 4 1 b 

0 0 5 2 1 

0635609 


LOA 

Ml 



0 4 1ft 

vi a 5 2 2 

0727019 


STA 

MSG 



0417 

00 52 3 

06bw05X 


LOB 

CD A 



0 4)3 

0 0 5 2 4 

0634239 


LUA 

TtXC 

NEW 

T (ESTIMATE) 

0 4 1Q 

00525 

0 7 3 4 1 5 9 


STA 

PtLTA 



0 420 

0 0 5 2 b 

0624719 


LOA 

D05XC 

NEW 

N5 (ESTIMATE) 

0 4 it l 

0 0 5 2 7 

$F? 2 6 4 6 9 


STA 

D N 5 X 



0 42 2 

00 530 

0635639 


LOa 

I ITC 



0423 

0 0 5 31 

0 0 3 0 0 4 


C M A 

, 1 N A 



04?4 

00532 

0434209 


ADA 

TCE 



0421? 

0 0 533 

002020 


SSA 




042b 

00 5 34 

0421679 


ADA 

*D5000 



0427 

0 2 5 35 

0734169 


STA 

OEI.TX 



0 42b 

00536 

0634009 


Lu A 

DN5C 

ORIGINAL N5 

0 429 

00537 

0726429 

GG0 

STA 

0M5 



0430 

0 0 5 4 0 

0 4 0 31 IK 


AQB 1 

:kc 



0431 

0054 1 

0774269 


STB 

CK 



0 4 32 

00542 

0266059 


J HP 

COMP 



0 4 3 3 * 








0434 

0 0 5 4 3 

016051 X 

GDI 

J SB 

LINK* 



0 4 35 

005 4 4 

0267039 


J MP 

GOOD 



04 3 b 

005 4 5 

0635619 


LUA 

M2 



0437 

0034b 

0/270)9 


STA 

MSG 



0 43b 

00 547 

0 6 b 0 0 6 X 


LD8 

TARSI 



0439 

00 5 50 

0634259 


LOA 

TEXT 1 



0 4 4 (•' 

00551 

0734159 


STA 

DELTA 



0441 

00 552 

062501k 


LOA 

DN5X 1 



0 4 42 

00553 

0726469 


STA 

DN5X 



0443 

0 0 554 

0635649 


LUA 

TITT1 



0444 

00 555 

00 300 4 


CHA 

, IMA 



0445 

00 55b 

0434219 


ADA 

TT IE 



044b 

0 0 557 

00 2 0 20 


SSA 




0447 

005b0 

0421679 


ADA 

*05070 



0 4 4 8 

00561 

0734169 


STA 

DELTX 



0449 

00562 

0634079 


LOA 

DN5T1 



0 4 b 0 

0 0 5 6 3 

02ft537R 


JMP 

GU0 



0 4 51* 








0452 

0 0 5 6 4 

01 6052 X 

GCI2 

JSb 

LINK3 



0453 

00565 

0267039 


JMP 

GOOD 



0454 

0 0 5 6 6 

063562k 


LOA 

M3 
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O 455 

0 0567 

O 7 2 70 1 W 


STA 

MSG 

0456 

005/0 

0 6 6 0 a 7 X 


LDB 

TARS2 

0457 

0 0 57 1 

W63424W 


LUA 

TEXT2 

0458 

00572 

0 7 3 4 1 5« 


STA 

DELTA. 

0 459 

0 0 67 3 

08251 19 


LUA 

0N5X2 

0 4 60 

0 0 57 4 

072646K 


STA 

DN5X 

0 4 b 1 

00 575 

0b35e5R 


LDA 

TITT 2 

0460. 

0 0 57 6 

003704 


CMA, 

INA 

0 4 6 o 

0057 7 

0434229 


ADA 

TT 2 E 

0 46 4 

00600 

002020 


SSA 


0465 

006 11 

0 4 2 1 6 / K 


ADA 

■D500O 

0 46 6 

0 0 6 O 2 

0734 16 R 


STA 

DELTX 

0 4b; 

0 0 6 0 3 

0 b 3 4 1 0 9 


LDA 

DN5T2 

0468 

00604 

0 2 o 5 3 7 W 


JMP 

GOO 

0 4 6 9 * 






0 4/0 

O 06Od 

0621 50R 

COMP 

LUA 

*84 

0 47 1 

0 60 8 

066643K 


LD 6 

TTMP 

0 4/2 

0 O 8 n 7 

0 1 6 0 1 4 X 


JS 8 

CLEAR 

0 47 3 

00610 

163426* 


LUA 

CK, I 

0 4 7 4 

706 1 1 

00200 / 


INA, 

S Z A , WSS 

0475 

OOo 1 2 

*.26671R 


JMP 

G0T6 

0 4/6* 






0477 

00613 

00/400 


CC 8 


04/6 

00614 

0634 15K 


LUA 

DELTA 

0 47 9 

00615 

003004 


CMA, 

INA 

0480 

00616 

0 4 3 4 1 6 R 


AU A 

DELTX 

0461 

00617 

003004 


CnA, 

INA 

0482 

00620 

0 0 20 21 


SSA, 

RSS 

0483 

0 0 6 21 

U26624R 


JMP 

* + 3 

0484 

00622 

0064O4 


CLP, 

INB 

0465 

00623 

0 0 3 0 0 4 


C 6 A, 

INA 

0 4 b b * 






046/ 

00624 

0 4 2 1 6 5R 


ADA 

sD-2500 

0 466 

00 625 

002020 


SSA 


0469 

0O626 

006400 


CL 6 


0450 

00627 

063426* 


LUA 

CK 

0491 

00630 

002004 


INA 


0492 

00631 

144000 


ADR 

0,1 

0493 

00632 

0740OO 


STB 

0 

0494 

00633 

002021 


SSA, 

-RSS 

0495 

00634 

02663/R 


JMP 

*♦3 

0496 

0 0 6 35 

037367K 


XS2 

TEMP 

0 4 9/ 

00636 

003004 


CMA, 

1 INA 

0498 

00637 

0 1 6P32X 


J SB 

BIBCD 

0459 

00640 

O 7 3 3 7 ? R 


STA 

TEMP+3 

0 60 0 * 






0601 

0064 1 

0 1 6 0 33 X 


JSB 

DADD 

0 50 2 

006 42 

000000 

DN5 

NOP 


O bo 3 

006 4 3 

00 1367* 

TTMP 

DEF 

TEMP 

060 4 

00644 

001376k 


DEF 

RELT 

0605* 






0506 

00 6 45 

0 1 6 0 3 4 X 


JSB 

OSUB 

0507 

006 45 

000000 

DNS X 

NOP 


O508 

00647 

001376* 


UEF 

RELT 

0509 

00650 

001376k 

ANS 

DEF 

relt 

0510* 






0511 

0 0 6 51 

016 035 X 


JSB 

DTBI 
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LAST POINT OF RANGING WAS BAD 
SKIP CHECK 


DO NOT ADJUST FINAL N5 
ADJUST N5 FOR PHASE SHIFT 


NET CHANGE TO N5 
PLUS CHANGE 

HAKE A DEC « FOR CHANGE 
ORIGINAL NS PLUS ADJUSTMENT 


NEW NS MINUS OLD NS 
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0512 

0 0 6 5 2 

**0 13/bk 


Or r 

KELT 

Vj b 1 3 


0^ 1 376k 


Dtp 

KELT 

'.•i 5 1 4 

l> 06 b 4 

063376R 


Lu A 

KELT 

14 b 1 5 

¥>**'&& 

/ 0 2 0 2 0 


SSA 


M b J O' 

V 1 ^ ^ 

id 0 3 0 U 4 


CmA, 

1 HA 

b 1 / 

/• v. t'lV 

0 1 ? 1 6<5k 


AND 

• ■til 7 7 77b 

M 5 l h 

✓u bo *3 

flags**! 2 


SZ A 


i4b i y 

t/) 1/1 0 6 J 

0 2 6 6 7 1 k 


J HP 

GU T b 

0b2u* 






0bfc l 

ti^ob* 

037375k 

NtTRY 

ISZ 

TRY 

4 b 0 2 

0 v.i b h 3 

0020/. 1 


K 8 S 


14 b 2 4 

0 '7004 

0 2 6 5 b ^ k 


J HP 

G02 

f4b*' 4 

/ v i rob 

v) '/ 3 4 0 ?> 


CCA 


Mb2b 

id / 6 0 6 

053375k 


CPA 

TRV 

M52b 

W / 0 0 7 

k» 2b 54 3k 


J HP 

GUI 

MS2/* 






M 5 2 8 * 

ALL 

Nb VALUES HAVt 

. eEEH CHECKED 

e b 2 v * 






W b v) ft 

07b7 0 

M 2 o 7 V- 3 R 


jmh 

GOOD 

•/bbl 

00071 

M ft 2 1 f> / R 

GO T6 

LUA 

■ l>« 

0 b 32 

ill Vt-C 7 r 

vjlbPU* 


J SB 

Print 

0 5 33 

viK67 3 

MU 1 543R 


ntf 

warn 

0 a 3 4 

0 ii b / 4 

vlP2 1 7mR 


L 1 > A 

•US 

Mb 3 5 


M 1 6 "» 11 X 


J So 

PRINT 

‘/lb -36 

V ti 6 7 6 

1/ M 1 b 4 / R 


vhf 

MSGbX 

4b3 7 

0 67 7 

M o 2 1 5 M R 


L UA 

e H 4 

Mb 38 

to VI / V wi 

Ml <301 1 X 


J Sb 

PRINT 

0 53P 

0 M 7 0 1 

M 0 0 * ft M 

MSG 

N(JP 


I4 5 4H 

iW02 

M2Mbb2R 


J MB 

MLTKY 


PRINT WARNING 


PRINT END RANGE CHECK 
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0543 

0 55 7 0 3 

0O2362X 

GOOD 

LDA 

PRADR 

0544 

(00704 

0 7 2 7 3 0 K’ 


STA 

K.L 

0545 

00/06 

072777R 


STA 

XR.C 

0546 

0 0 7 H 6 

042153R 


ADA 

*D60 

0547 

0(0707 

072735R 


STA 

R.T1 

1/1548 

0 M 7 1 Pi 

073000k 


STA 

XR.T1 

0549 

00 711 

0 4 2 1 6 3 R 


ADA 

*D60 

0 5 5 C'i 

00712 

072742R 


STA 

R.T2 

0551 

0 0 7 13 

073001k 


STA 

XR.T2 

0552 

0 0/14 

006400 


CLB 


0553 
0 554* 

0 0 7 1 5 

01 603UX 


JSB 

RDCiT 

0555 

00716 

01 605 IX 


JSb 

LINk2 

0556 

0 0717 

026726k 


JMP 

k.C-2 

0657 

M vi 7 20 

006404 


CLB , 

1 NB 

0668 

0 0 7 2 1 

016130X 


JSB 

ROOT 

0559* 

0560 

0 0 7 2 2 

U 1 6 0 5 2 X 


JSB 

LINKS 

0 561 

00723 

0 2 M 7 ? 6 R 


JMP 

R.C-2 

0562 

00/24 

0 6 6 1 6 0 P 


LUb 

»D2 

0588 

0584* 

D0725 

0 1 6 0 3 0 X 


JSB 

ROOT 

0565 

0 0 7 28 

fei 0 6 4 0 0 


CLB 


0586 

0 0727 

0 1 60 3 1 X 


JSB 

AUJUT 

0567 

0568 * 

007 3 0 

0 0 0 0 0 0 

R.C 

NOP 


0569 

00731 

2)16081 X 


JSB 

LINK2 

0570 

0 0 732 

028743k 


JMP 

R.T2+1 

0571 

K07 33 

006404 


CLB, 

INB 

0572 

03734 

01 0^3 IX 


JSB 

AOJtJT 

0573 
057 4* 

00735 

000000 

k.Ti 

NOP 


0575 

W07 56 

0 1 6052X 


JSB 

LINK 3 

0 57 6 

0 0 7 37 

026743k 


JMP 

K.T2+1 

0577 

0 0740 

066160k 


LDB 

802 

0578 

007 41 

01 603 IX 


JSB 

ADJUT 

0579 

0560* 

00742 

000000 

k.T2 

NOP 


0581 

0 07 43 

0 6 2 3 4 0 X 


LDA 

MOOT 

0582 

0 0 744 

042170k 


ADA 

*D9 

0565 

007 4 5 

072752k 


STA 

NUMB 

0584 

0 0746 

042160k 


ADA 

«02 

0585 

0127 47 

073427k 


STA 

MTEMP 

0586 

00750 

0 1 e 0 3 5 X 


JSB 

UTBI 

058/ 

007 51 

000000 

SPCN 

NUP 


0588 

0 0 7 52 

000000 

NUMB 

NOP 


0 5 6 9 * 
0590 

0 07 53 

0 1 6 a 3 5 x 


JSB 

DT8I 

0591 

007 54 

000000 

TEMPR 

NOP 


0592 

0 0 7 55 

00 1 434R 


def 

BT 

0593 

0 07 56 

063434k 


LOA 

BT 

0594 

00757 

0 0 6 4 0 0 


CLB 


0595 

007 60 

100400 


OCT 

100400 

0596 

0 07 6 1 

00 1646k 


DEF 

D 1 0 

0597 

0 0 7 6 2 

077436k 


STB 

BT + 2 

0598 

007 63 

006400 


CLB 


0599 

0 0 7 6 4 

1 -10 400 


OCT 

1 00 400 


5-72 


compute range rate coa 

COMPUTE RANGE RATE TARS 1 

ADJUST RANGES BASED ON RANGE RAT 
ADJUST TARS 1 
ADJUST TARS2 


CONVERT TEMPERATURE 

FOR MODEM 
DIVIDE 
6 1 TEN 

DIVIDE 


P A L. t tui I* «01 * W AnGL RATt AnO FINAL OUTPUT* 


0 6 00 OH7ft5 OO 1 64 6R D t F L) 1 0 B Y TEN 

0601 3w7b 6 173427k ST A MTEMP , 1 

0602 tic s7ft/ O 3 7 4 2 7 k IS* rtTEMP 

14 ft V' 3 007/w 177427H STB M T E M P , 1 

OftfcA 0O77 1 037427R ISZ rtTtMP 

Oftob 0O772 fe)t>343ftw UUA BT + 2 

OftO* 0;>773 1 7 34 27 R STA MTEMP,I 

O ft(4 7 * 

OftoH i.t'774 OM/4O0 CCB 

0609 0077b (37/4J2K STB A778 

0 ft l 0 * 

oftll fr! w 7 7 b 01oP20V L ABLE JSR MODEM 

0612 0 H777 0014(400 XR.C NOP 

Oft 13 OlP.Oii HOOOuw XW.Tl MOP 
0 6 14 OlwC‘1 XR.T2 MUP 

0 o 1 6 * 

06 16 Win32 00217 IK G0T7 LUA *08 

0 6 1 7 0l0w3 01631 IX J SB PRINT PRINT "OPERATION COMPLETE" 

06 1 H 010*4 0 0 1 4 ft 4 W DEF MSG 3 

Oft 1 9* 

0620 Olt-MO 003400 CCA 

0 621 01 CO ft 10251b OTA RUD 

0622 01007 02601 OR JMP S T R T A 

0 62 3* 



VOLUME I. CDA SYSTEM MANUAL 


SUBROUTINES 


'g&QE BLANK NOT FILMM 
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Ha fit- /./ 1 7 **l! 1 *M)MC U T TNES* 


062/* NATH! VERIFIES DATA POINTS * 
P> t> i 1 * AND UPDATES NC5) * 

/ o 2 9 * 0 F F S fc. T A S N t E 0 E 0 * 

/h v H'' ************** ****************** 


0 6 O 1 0101/ 0 Id’ R ct ti V 

0052 01011 lft/RlMR 

0653 01012 1 0 4 i'l i 

0034 01/13 (<r; 7 7 o 6 7 W 

0635 f. 1 C*. 1 4 /37010R 
0 636 p> 1 V 1 1 5 1 0 J 0 0 1 
063/ (* 1 0 t ft 006004 

D ft 0 ft y 1/ 1 / P 7 7 <i 1 1 K 
M639 01 020 0461 51k 

0 0 4/ '4*021 164001 

U041 D1M22 1/741 IK 

0042* 

0 6 4 3 010 2 3 1 ft 7 m 1 0 K 

0644 01 024 0370,1/P 

004ft 0102ft 0/74 1 2R 

0646 01/26 167412P 

064/ 0102/ 0/6/07 

0 6 40 0J030 0 2 7 0 5 7 R 

0049* 

0650 01031 00740/ 

0651 01052 075403k 

06b2 / 1 1. 5 3 003/04 

0 6 5 3 W 1034 1 4 3 4 1 ?. K 
0 6 ft 4 010 5ft 005004 

0ftft5 0 1 /3b R (127,20 

0656 01/37 0064/4 

0657 01 vi 4 0 07 74 13K 
0656* 

0659 01041 00202M 

0 66 0 01042 0(1 3?’ 0 4 

0661 61/43 042422P 

0662 01644 002626 

0663 01045 0277 ft 6R 

0664 01046 0/20/3 

0665 Rl/47 0 2 7 7 5 6 R 

0666 0105(1 04242 1 R 

0667 01/51 002O20 

066b 01/52 027061 R 

0669 01053 16/41 1 R 

0670 01/54 0 4 7 4 1 3 R 

0671 Ol/ftO 1 / 7 4 1 1 R 

0672 01056 0 6 3 4 0 3 R 

0673 01/57 1 7 3 4 1 2 R 

0674 01060 1 2 7 0 1 0 R 

0675 01R61 00340/ 

0676 01062 067367R 

0677 01063 17/001 

0676 01064 056R0 5 X 

0079 / 1 u o 5 02/057R 

0680 01066 0 5ft R M 6 X 

0681 01/67 027057R 

0682 010/0 / 5 6 P07 X 


NATH NOP 

LD8 HATH, I 
LOb 1,1 
STB TEMP 
ISZ MATH 
LUA 1,1 
1MB 

STb LUC 
ADB efcS-4 
LDb 1,1 
STB LUC , I 

LOB MATH, I 
ISZ MATH 
STb DEL 
LDB DEL, I 
1 NB , SZB, RSS 
JMP DUNEY+1 

CCB 

STA T.I 
C M A , I N A 
ADA DEL, I 
CMA, INA 
SS A 

CLB, INB 
STB NV 

SS A 

CM A , INA 
ADA MIXC 
SS A 

JMP PONEY 
SZ A , RSS 
JMP DUNEY 
ADA MIXb 
SS A 

JMP BADD 
LDB LOC , I 
ADB MV 
STB LOG, I 
DONEY LDA T.I 
STA DEL, I 
JMP MATH, I 
BADD CCA 

LDB TEMP 
ST A 1,1 
CPB CD A 
JMP DONEY+1 
CPB TARSI 
JMP DONEY+1 
CPB TARS2 
5-76 



ADDRESS OF DATA | 


T READING 

POSITION TO N COUNTER 
POSITION OF N ( 5) OFFSET 

GET LAST N (5) 

N(5,I)«NC5#I-1) INITIAL PPINT FO 
T(ESTIMATE) AODRESS 
ADDRESS OF ESTIMATE 



COMPUTE T(I)-T(I-n 

POSSIBLE CHANGE TO N(5) 
ABS (TCI)) 

CHECK FOR PHASE SHIFT 



CHANGE N(5) 


UPDATED ESTIMATE STORED FOR NEXT 
IF THE PRINT IS BAD# 

RETAIN LAST EST 
CHANGE TCI) TO -1 TO INDICATE 



k A6fc 

0M18 1 

*01 * SUBROUTINES* 


0683 

01071 

027057R 

JMP 

DONEY+1 

0684 

01072 

04615 1 R 

AOB 

■ 8-4 

0685 

010/3 

160001 

LOA 

1,1 

0686 

01074 

002020 

8SA 


0687 

01075 

127310k 

JMP 

MATH, I 

0688 

01M7t> 

033400 

CCA 


0689 

01077 

1/0001 

STA 

1,1 

0690 

01100 

127010k 

JMP 

MATH, I 


069? 01101 

0693 till 02 

0694 HI 103 

0695 A 1 1 vl 4 
H696 VJ 1 1 vi b 

0697 iUHb 

0698 01107 
0699* 

0700 H1U0 

0701 01111 

0702 01112 

0703 01113 

0704 01114 

070b 0111b 

0706 M1116 

0707 01117 

0708 01120 

0709 01121 

0710 01122 

0711 01123 

071? 01124 

0713 0112b 

0714 01126 

071b 0U27 

0716 01130 

0717* 

0718 01131 

0719 01132 

0720 01133 

0721 01134 

0722 0113b 

0723 01136 

0724 01137 

072b 01140 

0726 01141 

0727 01142 

0728 01143 


000000 TUkN 

CJ73366H 

032162« 

102617 

M63646R 

M16C13X 

127101k 

000000 FNL 

163110k 

0 3 * 1 1 0 W 

073130k 

163110k 

037110k 

073142R 

0 6 2 0 4 1 X 

052150k 

127110k 

062057 X 

0 1 6 0 5 3 X 

063366k 

032162k 

102617 

017326k 

000000 ,28k 

0 6 2 0 4 1 X 

052160R 

127110k 

062172k 

016053X 

063366k 

032161k 

102617 

017326k 

000000 ,35k 

1271 10k 


NOP 

ST A LOOPX 
I OK *84000 
OTA RX 
IDA 010 
JSb ETIME 
JMP TURN, I 

NOP 

IDA FNL, I 
ISZ FNL 
STA ,28k 
IUA FNL > I 
ISZ FNL 
STA • 35R 
LOA MODE 
CPA *84 
JMP FNL, I 
LOA 88283 
JSB RUDOT 
LOA LOOPX 
I UK *84000 
OTA RX 
JSB CTR 
NOP 

LOA MODE 
CPA *82 
JMP FNL , 1 
LOA *841 
JSB RUDOT 
LOA LOOPX 
I OR *82000 
OTA RX 
JSB CTR 
NOP 

JMP FNL, I 


WHERE TO PUT CNTR READING 
283 READING 

35 READING 

RETURN IF MODE C 
283 


RETURN IF MODE B 
35 TO CNTR3 


EXIT 


0730 01144 003000 CALPT NOP 

0731 01 145 0.73430k STA SAVA 

5-77 
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0732 

01146 

067542R 

LOB H85. 



0733 

31147 

002003 

8ZA* RSS 



0734 

01190 

067540R 

LDB M64 



0735 

01151 

000010 

SLA 



0736 

01152 

067541R 

LOB 055 



0737 

01153 

077156R 

5TB PRR 



0736 

01194 

062170R 

LDA *09 



0739 

01155 

01601 IX 

JSB PRINT 

PRINT 

"CALIBRATION VALUES" 

0740 

61156 

000000 PRR 

NUP 



0741 

01157 

062173R 

LDA *8-3 

NUMBER 

OF LINKS 

0742 

01160 

073414R 

STA REF 



0743 

01161 

06/430R 

LDB SAVA 



0744 

01102 

0636.27K 

LDA X35 



0745 

01163 

006003 

SZB, RSS 



0746 

0 1 1 6 4 

063566R 

LDA , 35FD 



0747 

01165 

004010 

SLB 



074b 

0 1166 

063610R 

LDA N 1 



0749 

01167 

073206R 

STA VAL 



0750 

01170 

063242R CALI 

lda; TAB 



0751 

01171 

0434 1 4R 

ADA REF 



0752 

01172 

002304 

INA 

POINT 

TO HEADING 

0753 

01173 

160000 

LOA 0,1 



0754 

01174 

0 7 3 1 7 7 R 

STA HEDV 



0755* 






0756 

01175 

062158R 

LDA *D4 



0757 

01176 

01631 1 X 

JSB PRINT 

PRINT 

APPLICABLE HEADING 

0758 

0117 7 

0W0000 HEDV 

NOP 



0759* 






0760 

01200 

0 6 7 4 3 0 R 

LDB SAVA 



0761 

01201 

062 1 51 R 

LDA *6-4' 



0762 

01202 

006003 

SZ8 , RSS 



0763 

01203 

0 6 2 1 6 4 R 

LDA *B-5 



0764 

01204 

073373R 

STA CNT 



0 7 6 5 * 






0766 

01205 

016321 X 

JSB DDTA 

DECIMAL TO ASCII CONVERSION 

0767 

01206 

000330 VAL 

NOP 



0766 

01207 

001 474R 

DcF STORE 



0769 

01210 

062170R 

LDA *D9 



0770 

01211 

0 1 63 1 1 X 

JSB PRINT 

PRINT 

APPLICABLE FIXED DELAY 

0771 

01212 

001474R 

DEF STORE 



0772* 






0773 

0 1 2:1 3 

063206R 

LDA VAL 



0774 

01214 

042150R 

ADA *04 

POINT TO NEXT VALUE 

0775 

01215 

073206R 

STA VAL 



077 6 

01216 

037373R 

ISZ CNT 



0777 

01217 

027205R 

JMP VAL-1 



0778* 






0779 

01220 

0374 1 4R 

ISZ REF 



0760 

01221 

002301 

RSS 



0781 

01222 

027236R 

JMP CERRK 



0782 

01223 

06341 4R 

LDA REF 



0783 

01224 

042436R 

ADA B3 



0784 

01225 

05343 1R 

CPA LINKS 



0785 

01226 

027236R 

JMP CERRK 



0786 

01227 

067430R 

LDB SAVA 



0787 

01230 

0 06311 

SLB, RSS 



0788 

01231 

0271 70 R 

JMP CALI 
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0789 

01232 

0 6 3 2 0 6 K 


IDA 

VAL 



0790 

01233 

0421719 


ADA 

■ D8 



0791 

01234 

0732069 


STA 

VAL 



07 92 

01235 

0271709 


JMR 

CALI 



0793* 








0794 

01236 

0634179 

CER9K 

LOA 

ERRFZ 

CK FOR 

COUNTER ERROR 

079b 

01237 

002002 


SZA 




0796 

01240 

0273229 


JMP 

TIMOT 

COUNTER 

ERROR 

0797 

01241 

1271449 


jmp 

CALPT , X 



0798 

01242 

0012459 

TAB 

DEE 

*♦3 

HEAOZNG 

TABLE 

0799 

01243 

0014509 


OEE 

MEDC 



0800 

01244 

0014549 


DEF 

MEDT1 



0801 

01245 

0014609 


DEF 

HEDT2 




0803 

01246 

000000 FND 

NOP 


0804 

01247 

0421749 

ADA 

■D-10000 

080 6 

012 50 

0 H 2 0 2 1 

SS A # 

RSS 

0H06 

01251 

027247K 

JMP 

*-2 

0 80 7 

01252 

042175R 

ADA 

■D10000 

0808 

01253 

1272469 

JMP 

FND, I 


0810 

01254 

000000 

STAT 

NOP 


0811 

01255 

1632549 


LOA STAT, I 

A0DRE3S OF BUFFER 

0812 

01256 

0372549 


ISZ STAT 


0813 

01257 

0/2004 


1NA 


0814 

01260 

160000 


LOA 0,1 

STATUS WORO 

0815 

01261 

002021 


SSA , RSS 

READY? 

0816 

01262 

0272769 


JMP CKO 

NO RETURN TO REJECT POINT 

0817 

01263 

0372549 


ISZ STAT 

YESI BUMP RETURN AOORESS 

0818 

01264 

0 6 2 P 1 5 X 


LOA DONE 


0819 

01265 

002020 


SSA 


0820 

01266 

1272549 


JMP STAT, I 

ALL READINGS not COMPLETEO 

0821 

01267 

0634059 


LDA PRIOR 


0822 

01270 

002002 


SZA 


0823 

01271 

1272649 


JMP STAT, I 


0824 

01272 

0164269 


J8B LAST 

ALL READINGS FINISHED 

0825 

01273 

0034P0 


CCA 


0826 

01274 

07 3 40 5 R 


STA PRIOR 


0827 

01275 

1272549- 


JMP STAT, I 


0828* 






0829 

01276 

062P36X 

CKO 

LDA TTYDA 


0830 

01277 

0534029 


CPA STARA 


0631 

01300 

026047X 


JMP ABORT 


0832 

01301 

0534379 


CPA XXX 


0833 

01302 

0260 47 X 


JMP ABORT 


0834 

01303 

1272549 


JMP STAT, I 
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0836 

0130 4 

000000 

083 7 

0 130 5 

0 6 6 1 6 6 R 

0838 

0 13 0 6 

01)2400 

0 839 

0130 7 

07 2'M0X 

0840 

01310 

062015X 

0 84 1 

01311 

002P21 

0842 

01312 

1 2 7 3 0 4 R 

0843 

01313 

003400 

08 44 

01314 

G5ft2flt0X 

0840 

01315 

002001 

0846 

01316 

0 2 7 3 1 0 R 

0647 

01317 

006007 

0848 

0 1 320 

002001 

0849 

0 3 32 1 

0 2 7 3 0 6 R 

0 6 00* 



0851 

01322 

0621 76R 

0852 

W132 3 

0 1 60 1 1 X 

0853 

HI 324 

001 441R 

08 5 4 

0 1325 

026047 X 

H 8 5 6 * 



0H5m 

0 1326 

000000 

0 8 57 

0132 7 

0M2400 

0856 

01330 

M73417R 

0 8 59 

0133 3 

1 03326R 

0660 

01332 

03/326R 

08 6 1 

01333 

07333/R 

0862 

01334 

Ml 600 IX 

0 8 63 

01335 

02O0M3 

0864 

01336 

027 3348' 

0865 

01337 

0 00 0 0 0 

08 6 6 

013 4 0 

000000 

0 8 6 7 

013 41 

01 7304R 

0666 

01342 

06 3 43 1 R 

08o9 

01343 

003004 

0870 

01344 

0 7 3 1 0 1 R 

06 7 1 

0 1345 

062173R 

0872 

0 1 346 

073246R 

0673 

01347 

167337R 

067 4 

01350 

006004 

087 5 

01351 

1 60001 

0 876 

01352 

002002 

08 77 

01353 

O27360R 

08 78 

01354 

03XP46R 

067 9 

01355 

027350k 

0880 

01356 

0374 178 

0 86 1 

0 1 o 5 7 

1 27326R 

0882 

0136O 

037337k 

0 88 3 

0 1361 

0-37 1018 

0884 

01362 

0 2 7 3 4 5 R 

0865 

01363 

12/326R 


ST AT 1 NOP 

LD6 «B-2 
CLA 

STA TMARK 
STIFF LOA DONE 
SS A , RSS 
JMP ST AT 1 , I 
CLA 

CPA TMARK 
RSS 

JMP STIFF 

lNf},SZB,RSS 

RSS 

JMP STIFF-2 

TIMOT LD A *07 

JS8 PRINT 
UEF CERR 
JMP ABORT 

CTR NOP 
LLA 

STA ERRFZ 
LOA CTR, I 
ISZ CTR 
STA CALL 
J SB .IOC. 
OCT 20003 
Jnp *-2 
CALL NOP 
NOP 

JS6 STATl 
LOA LINKS 
CM A , INA 
STA TURN 
WINT LOA *0-3 
STA FND 
LOB CALL, I 
INB 

LOA 1,1 
SZA 

JMP NCK 
ISZ FND 
JMP Ur-5 
ISZ ERRFZ 
JMP CTR, I 
NCK ISZ CALL 
ISZ TURN 
JMP PINT 
JMP CTR, I 


SET TIME OUT START 

READING FINISHED? 

YES S RETURN 

NO 1 CHECK TIMEOUT 

TIMEOUT 


CK FOR 0 READING 


COUNTER ERROR FLAG 
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l/'bbH 
08b9 
0H9P 
0 8 91 
0892 
0 h y 5 
0594 
v , 8 9 b 

0896 

to 89 7 
0 « 9 8 
0 89 9 
0 90'/? 
to 90 1 
0 90 2 
0 90 5 
0904 
0 90 5 
090b 
0 90 7 
0 9t*K 
0 90 9 
0 9 10) 
0911 
091 if 
0915 
0 914 
09 15 
0915 
0 91/ 
0 9 1 8 
0 91“ 
09 20 
0921 
0 922 
0925 
0 92 4 
0 92 5 
0 925 

0927 

0928 

0929 
0 950 
0951 
0932 
0935 

0934 

0935 
0935 
0 93 7 
0968 

0939 

0940 

0941 
09 42 

0943 

0944 


0 to 0 1 5 


ROD 

EQU 

SUP 

15B 

0 135 4 

000126 

LOOPO 

OCT 

126 

W 1355 

000071 

LOOP I 

OCT 

71 

0 1 o66 

0 0 0 0 00 

LOUPX 

NOP 


013 67 

0 0 0 0 00 

TEMP BSS 4 


0 1 >i 7 o 

0 0 00 0 0 

CNT 

NOP 


0 1 vj 7 4 

00 00 0 0 

ACNT 

NOP 


015/5 

000000 

TRY 

NOP 


0 13/5 

000000 

PELT 

bss 

4 

0 14 0 2 

025101 

STARA 

ASC 

1 , *A 

01403 

W 0 0 30 0 

T.I 

NOP 


014 0 4 

000000 

CNTR 

NOP 


0 1 4 0 5 

000000 

PRIOR 

NOP 


0 140 6 

0020 47 K 

DN5C 

Dtp 

N5C 

014 0 7 

W 1C 2 ft 7 7 R 

DN5T1 

OEM 

N5T 1 

0141 0 

0 0 2 1 2 7 R 

DN5T2 

0 fc F 

N5T2 

0 l 4 1.1 

0 0 0 0 0 0 

LOC 

NOP 


01412 

000000 

DEL 

NOP 


01413 

000000 

N V 

NOP 


('ll 4 1 4 

000000 

REF 

NOP 


01415 

0 00 00 0 

0 E L T A 

NOP 


01415 

0 0 0 0 0 0 

DELTX 

NOP 


014 17 

01/0000 

ERHF2 

NOP 


01420 

C-: 0000 0 

TCt 

NUP 


0 1421 

000000 

TT1E 

NOP 


01422 

0000.00 

TT2E 

NUP 


01425 

000000 

TEXC 

NOP 


01424 

000000 

TEXT2 

NOP 


01425 

000000 

TEXT! 

NOP 


014 2b 

0 0 0 0 0 0 

CK 

NOP 


01427 

000000 

M T EMP 

NOP 


01450 

0 0 M 0 0 0 

SAVA 

NUP 


014 31 

0 M 0 0 0 3 

LINKS 

UCT 

3 

01432 

0V.10t.00 

A 7 78 

NOP 


0 1 4 3 3 

0 0 0 00 0 

(JKFLl 

NOP 


014 3 4 

0W0000 

BT 

BSS 

3 

014 0 7 

025052 

XXX 

ASC 

It ** 

014 40 

020157 


OCT 

20137 

01441 

041517 

CE’RR 

ASC 

7 » COUNTER ERROR 

01450 

020040 

HEDC 

ASC 

4, CD A 

01454 

W20124 

HEOTl 

ASC 

4, TAPS 1 

014 6 0 

020124 

hEDT 2 

ASC 

4, TARS 2 

01 4b4 

0511W1 

MSG 3 

ASC 

8, RANGING COMPLETE 

014 7 4 

020040 

STORE 

ASC 

9 , 

0150 5 

043111 

MSG 4 

ASC 

9, FIXED DELAY VALUES 

01516 

045111 

MSG 5* 

ASC 

9, FINAL ambiguity 

01527 

040515 

MSG 5 

ASQ 

9, ambiguity values 

01540 

041505k 

MS4 

UEF 

MSG 4 

015 41 

001527* 

MS 5 

OEF 

MSG 5 

01542 

0i' 1 5 1 ok 

MSb. 

Otf 

MSG 5. 

01543 

053501 

WARM 

ASC 

4, WARMING: 

0 15 47 

051115 

MSG5X 

ASC 

8 , RNG INCONSISTANT 

0155/ 

02«137 


OCT 

201 37 

015 6 0 

001450k 

Ml 

DEF 

HEDC 

01561 

0 0 1 45 4 R 

M2 

OEF 

HEDT1 

015 62 

0 0 14 60k 

M3 

OEF 

HEDT2 


5-82 





P AGE 

0023 

«oi *cunstants ano working 

0945 

101563 

000000 

TITC 

NOP 


0 946 

01564 

000000 

TITTl 

NOR 


0947 

01565 

000000 

TITT2 

NOP 


0 9 48 

01566 

0O1727R 

.35FD 

DEF 

• 35CF 

0 949 

01567 

001753R 


DEF 

• 35CP+20 

0 950 

01570 

001777R 


DEF 

• 35CF+40 

(0951 

01571 

0O1733R 

• 28FD 

DEF 

• 35CF+4 

10952 

01572 

001757R 


DEF 

•35CF+24 

Pi 953 

01573 

002O03R 


DEF 

.35CF+44 

0954 

01574 

001737W 

• 39FD 

DEF 

.35CF+8 

0955 

01575 

001763W 


DEF 

, 35CF + 28 

0955 

01576 

002007R 


OEF 

.33CF+4B 

0957 

01577 

001743W 

* 27F0 

DEF 

, 35CF ♦ 1 2 

0958 

0160 0 

0O1767W 


DEF 

, 35CF+32 

0959 

01601 

OO2013K 


DEF 

'» 35CF + 52 

0 960 

01602 

0 0 1 7 4 7 K 

.20FD 

DEF 

• 35CF* 1 6 

0 961 

0 1 603 

O01773R 


DEF 

.35CF+36 

0962 

01604 

0020 17R 


DEF 

, 35CF + 56 

0963 

0 1 b 0 5 

002023K 

R.VAL 

DEF 

N0CO 

0964 

016 0b 

002053* 

NO T 1 

DEF 

N0CO+24 

0 96 5 

0 1 6 ii 7 

0021 03 R 

r> 0 T 2 

DEF 

N0CD+48 

0966 

0 16 1 0 

OU2027K 

M 

DEF 

N0CDF4 

0967 

0 1 6 u 

00 20 57 R 


DEF 

NOCO+28 

0 968 

01612 

002107R 


DEF 

N0CD*52 

0969 

01613 

OO2033R 

M2 

DEF 

N0CD+8 

0970 

01614 

0 0 2 0 6 3 R 


OEF 

N0CQ+32 

0971 

0 1 b 1 5 

0021 13R 


DEF 

N 0 C D ♦ 5 6 

0972 

01616 

002037R 

N3 

DEF 

N0CO+12 

0 97 3 

01617 

002067R 


DEF 

NOCD+36 

0 9 74 

01620 

0021 17R 


DEF 

N0CO+60 

0975 

01621 

O02043K 

N4 

OEF 

N0CD+16 

0976 

01622 

OO2073R 


DEF 

N0CD+40 

0 97 7 

01623 

002123R 


OEF 

N0CO+64 

10 97 8 

01624 

OO2047R 

N5 

OEF 

N0CD+20 

0 979 

01625 

OW2077R 


OEF 

N0CD+44 

0 980 

01626 

002127R 


DEF 

N0CD+68 

0 981 

01627 

O01647R 

X 35 

DEF 

AHBIG 

0982 

01630 

00166/R 


DEF 

AMBIG+16 

0983 

01631 

001707K 


DEF 

AHBIG+32 

0984 

01632 

0R1653R 

X28 

DEF 

AMBIG44 

0965 

01633 

001673R 


DEF 

AHB I G+20 

098b 

01634 

001713R 


DEF 

AM8IG+36 

0987 

01635 

001657R 

X39 

DEF 

AMBIG+8 

0968 

01636 

00 1 677 R 


DEF 

ANBIG+24 

0 98i? 

01637 

0 0 1 7 1 7 R 


DEF 

AMBIG+40 

0990 

016 4 0 

0 O 1 6 6 3 R 

X27 

DEF 

AMBIGM2 

0991 

01641 

0 0 1 7 0 3 R 


DEF 

AMBIG+28 

0992 

01642 

0O1723R 


DEF 

AMB I G*44 

0993 

01643 

000000 

HPTS 

BSS 

3 

0994 

01646 

000012 

D10 

DEC 

10 

0 995 

01647 

000000 

AM8IG 

BSS 

46 

0996 

01727 

000000 

• 35CF 

BSS 

60 

0 997 

02023 

000000 

NoCD 

BSS 

72 

0 998 

02027 


NIC 

EUU 

N0CD+4 

0 999 

02057 


NlTi 

EUU 

N0CD+28 

10 00 

021O7 


N1T2 

EQU 

N0COF52 

1001 

01727 


.35FC 

EQU 

• 3 5 C F 
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PAbt 0024 *01 *CONSTANTS ANU WORKING STORAGE* 


1002 

017 53 


. 35F l 

EUU 

• 35CF+20 

1003 

0 1777 


.35F? 

EQU 

. 35CF + 40 

1004 

020 47 


N5C 

EQU 

N0CO+20 

10195 

02077 


N5T1 

EUU 

N0CO+44 

100 6 

0 2127 


N5T2 

EUU 

N0CD+68 

100 7 

01647 


X35C 

EUU 

AMBIG 

100 8 

0166 7 


X'351 1 

EQU 

AMBIG+ 1 6 

100.9 

0 1 7 W 7 


X35T2 

EQU 

AMBIG+32 

1010 

01 747 


. 2 0 F C 

EQU 

.35CF+16 

1011 

01773 


. 20F 1 

EQU 

.35CF+36 

HM2 

0 ? 0 1 7 


.20F2 

EQU 

.35CF+56 

1 0 1 3 

02133 

000000 

N5XC 

ESS 

4 

1014 

02137 

000P00 

N5XT1 

BSS 

4 

1015 

02143 

000000 

N5XT2 

BSS 

4 

1016 

0W017 


RX 

EQU 

17B 

10 17 




UNS 



02147 MW001 6 

02150 000004 

02151 1 7777a 

02152 000060 
02155 000074 

02154 0001 10 

02155 000264 
0215b 177470 
02157 167010 

02150 000002 

02151 0M200M 

02162 . 004000 

02165 177777 
M2164 177775 

02165 173074 

02166 177776 

02167 011610 
02170 000011 
0217 1 0000-10 

02172 000041 

02173 177775 
021/4 154360 
W2175 023420 
02)76 000007 

1018 END 

** NO ERRORS: AMD ASMS, 251 1/-40251B 
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ADD AND SUBTRACT - FULL PRECISION 
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0001 



ASHB, 

0003 

00000 



0004 




0005 




0006 




0007* 




0008 

00000 

000000 

DADO 

0009 

00001 

016353R 


0010 

00002 

026012R 


0011* 




0012 

00003 

000000 

DSUB 

0013 

00004 

016353K 


0014 

00005 

062500R 


0015 

00006 

001500 


0015 

00007 

002200 


00 1 7 

00010 

001600 


0018 

0001 1 

072500R 


0019* 




0020 

00012 

066523R 

AOMUP 

0021 

00013 

007004 


0022 

00014 

046522R 


0023 

00015 

006001 


0024 

00016 

026035R 


0025* 




0026 

00017 

06 2 47 SR 


0027 

00020 

0664742 


0028 

00021 

016415R 


0029 

00022 

062475R 


0030 

00023 

066476R 


0031 

00024 

016415R 


0032 

00025 

062474R 


0033 

00026 

066475R 


0034 

0002.7 

016415R 


0035 

00030 

062522R 


0036 

00031 

066523R 


0037 

00032 

072523R 


0038 

00033 

076522R 


0039 

00034 

026012R 


0040* 




0041 

00035 

047522R 

ADDEM 

0042 

00036 

062522R 


0043 

00037 

002021 


0044 

00040 

026 1 66R 


0045 

00041 

0 6 2 4 7 6 R 

NICE 

0046 

00042 

006021 


0047 

00043 

0261 60 R 


0048 

00044 

007000 


0049 

00045 

04752 2 R 


0050 

00046 

076531 R 


0051 

00047 

016466R 


0052* 




0053 

00050 

03653 1 R 

LOOP 

0054 

00051 

002001 


0055 

00052 

026056R 


0056 

00053 

062475R 


0057 

00054 

016440R 


0058 

00055 

026050R 



5 - 


R # B * L 
NAM MATH 

ENT DADD'DSUB'DTBX 
ENT OMUL. DDIV, MOVE, SHAME 
EXT CLEAR 

NOP 

JSB UNPAK 
JMP AOMUP 

NOP 

JSB UNPAK 

LDA V 

ERA 

CME 

ELA 

STA Y 

LOB EXP Y 
CMB , INB 
ADB EXPX 
SSB , RSS 
JMP AD DEM 

LDA AX 
LOB TEMPI 
JSB MOVE 
LDA AY 
LDB AX 
JSB MOVE 
LOA TEMPI 
LOB AY 
JSB MOVE 
LDA EXPX 
LDB EXPY 
STA EXPY 
STB EXPX 
JMP AOMUP 

ADB Ml 3 
LOA EXPX 

SSA, R3S 
JMP CKPL 
LOA AX 

SSB, RSS 
JMP FLOP! 

CMB 

ADB Ml 3 
STB SHPCN 
JSB GETU 

ISZ SHPCN 
RSS 

JMP CALC 
LDA AY 
JSB SHAME 
JMP LOOP 

86 


I#***-"* 


r 


r 


+**■ 


PAGE 

0003 i 

*01 * ADD AND 

0059* 




0060 

00056 

062537R 

CALC 

0061 

00057 

000010 


0062 

00060 

22621 1 R 


0063 

00061 

062504R 


0064 

00062 

072520R 


0065 

00063 

062505R 


0066 

00064 

072527H 


0067* 




0068 

00065 

002400 


0069 

00066 

072533R 


0070 

00067 

063535R 


0071 

00070 

072524R 


0072* 




0073 

00071 

06251 1R 

COVT 

0074 

00072 

012546R 


0075 

00073 

072532R 


0076 

00074 

052503R 


0077 

00075 

012546R 


0078 

00076 

042532R 


0079 

00077 

042533R 


0080 

00100 

043534R 


0081 

00101 

002020 


0082 

00102 

026163R 


0083 

00103 

006404 


0084 

00104 

076533R 

C0VT1 

0085 

00105 

012546R 


0086 

00106 

072532R 


0087 

00107 

062477R 


0088 

00110 

016440R 


0069 

00111 

062532R 


0090 

00112 

001323 


0091 

00113 

001323 


0092 

00114 

032515R 


0093 

00115 

072515R 


0094* 




0095 

00116 

■ 062476R 


0096 

00117 

016440R 


0097 

00120 

062475R 


0098 

00121 

016440R 


0099 

00122 

036524R 


0100 

00123 

02607 1R 


0101* 




0102 

00124 

062526R 


0103 

00125 

072520R 


0104 

00126 

062527R 


0105 

00127 

072521R 


0106 

00130 

062533R 


0107 

00131 

002003 


0108 

00132 

026144R 


0109* 




0110 

00133 

062477R 


01 1 1 

00134 

0 1 6440R 


0112 

00135 

062533R 


0113 

00136 

001323 


0114 

00137 

001323 


0115 

00140 

032515R 



SUBTRACT - FULL PRECISION 


LDA 

SXCNO 

SLA 


JNP 

DIFF 

LDA 

Y*4 

STA 

TEMP*2 

LDA 

Y*5 

STA 

TEMP*3 

CLA 


STA 

BXN1 

LDA 

M12 

STA 

TEMP 

LDA 

X*3 

AND 

B17 

STA 

BIN 

LDA 

Y*3 

AND 

B17 

ADA 

BIN 

ADA 

BIN1 

AOA 

M10 

SSA 


JMP 

LESST 

CLB, 

INB 

STB 

BIN1 

AND 

B17 

STA 

BXN 

LDA 

AZ 

J8B 

SHAME 

LDA 

BXN 

RAR, 

RAR 

RAR, 

RAR 

XOR 

ZM 

STA 

ZM 

LDA 

AX 

JSB 

SHAME 

LDA 

AY 

JSB 

SHAME 

xsz 

TEMP 

JMP 

COVT 

LDA 

TEMP*2 

STA 

Z*4 

LDA 

TEMP*3 

STA 

Zt5 

LDA 

B X N 1 

8ZA, 

RSS 

JMP 

NEAR 

LDA 

AZ 

JSB 

SHAME 

LDA 

B X N 1 

RAR, 

RAR 

RAR, 

RAR 

XOR 

Z«1 

5 - 

87 
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PAGE 

0004 001 * ADD AND 

SUBTRACT * FULL 

PRECISION * 2JAN75 

BUS 

00141 

072515R 


STA 2*1 


0117 

00142 

036522R 


xsz Em 


0 118 
01 IS* 

00143 

000000 


NOP 


0130 

00144 

062506R 

NEAR 

LDA X 


0131 

00145 

006400 


CLB 


0122 

00146 

000010 


SLA 


0123 

00147 

006004 


INB 


0124 

0125* 

00150 

076S14R 


STB Z 


0136 

00151 

067535R 


LDB Ml 2 


0127 

00152 

062477R 


LDA AZ 


0128 

0129* 

00153 

0 1 727BR 


JSB LEFT 


0130 

00154 

0 1 7 2 5 6 R 

ALMOT 

JSB REVER 


0131 

00155 

032514R 


I OR Z 


0132 

0133* 

00156 

072514R 


STA Z 


0134 

00157 

062477R 


LDA AZ 


0135 

00160 

066538R 

FtOPl 

LDB ADRZ 


0136 

00161 

016415R 


JSB MOVE 


0137 

0138* 

00162 

126555R 


JMP RETN, I 


0139 

00163 

006400 

LESST 

CLB 


0140 

00164 

043527R 


ADA ,10 


0141 

00165 

026104R 


JMP COVTi 


0142* 

0143 

00166 

003004 

CKPL 

CMA,XNA 

*r. 

^ ‘ ^ 

0144 

00167 

042523R 


ADA EXP Y 


0 145 

00170 

002021 


SSA,R$$ 


0146 

00171 

02604 1 R 


JMP NICE 


0147 

00172 

062507R 


LDA X*1 


0148 

00173 

001700 


ALF 


0149 

00174 

012546R 


AND B 1 7 


0150 

00175 

002002 


SZA 


0151 

00176 

02604 l R 


JMP NICE 


0152 

00177 

007400 


CCB 


0153 

00200 

062476R 


LDA AX 


0154 

00201 

017270R 


JSB LEFT 


0155 

00202 

0 1 7 2 5 6 R 


JSB REVER 


0156 

00203 

070001 


STA 1 


0157 

00204 

062506R 


LDA X 


0158 

00205 

012 9 47 R 


AND B377 


0159 

00206 

030001 


IOR 1 


0160 

00207 

072506R 


STA X 


0161 

0162* 

00210 

026012R 


JMP ADMUP 


0163 

00 21 1 

0 6 3 5 3 1 R 

D1FF 

LOA M3 


0164 

00112 

0 7 2 5 4 2 R 


STA CNT 


0165 

BBSS 3 

0 6 2 4 7 6 R 


LOA AX 


0168 

00214 

072540R 


STA UNITX 


0167 

00215 

062475R 


LDA AY 


0168 

00216 

072541 R 


STA UNITY 


0169 

00217 

0 3 6 5 4 0 R 

SS A 

XSZ UNITX 


0170 

0171 

00220 

00221 

03654 1 R 
162540R 


ISZ UNITY 
LDA UNITX, I 

RffRODBCEim °F mS 

ORIGINAL PAGE B rGoE 

0172 

Ji 

00222 

1 665 4 1 R 


LDB UNITY. I 
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0173 

00223 

002020 


SSA 


0174 

00224 

026334R 


JMP 

XY 

0175 

00225 

006020 


SSB 


0176 

00226 

026245R 


JMP 

YBXG 

0177 

00227 

007004 

COHPL 

CHB, 

XNB 

0178 

00230 

040001 


ADA 

1 

0179 

00231 

002020 


SSA 


0180 

00232 

026245R 


JMP 

YBXG 

0181 

00233 

002002 


SZA 


0182 

00234 

0 2 6 3 4 3 R 


JMP 

XBXG 

0183 

00235 

036542R 


ISZ 

CNT 

0184 

00236 

0 2 8 2 1 7 R 


JMP 

SSA 

0185* 






0186 

00237 

062504R 


LDA 

Y*4 

0187 

00240 

066505R 


LOB 

Y*5 

0188 

00241 

002003 


8ZA f 

R8S 

0189 

00242 

006002 


SZB 


0190 

00243 

026245R 


JMP 

YBXG 

0191 

00244 

026154R 


JMP 

ALMOT 

0192* 






0193 

00245 

062475R 

YBXG 

LOA 

AY 

0194 

00246 

066478R 


LDB 

AX 

0195* 






0196 

00247 

072552R 

V. . 

STA 

BIG 

0197 

00250 

076553R 


STB 

small 

0198 

00251 

002400 


CLA 


0199 

00252 

072554R 


STA 

CB 

0200 

00253 

063525R 


LDA 

.5 

0201 

00254 

072544R 


STA 

TEMPA 

0202 

00255 

062552R 

V... 

LDA 

BIG 

0203 

00256 

042544R 


ADA 

TEMPA 

0204 

00257 

160000 


LOA 

a.i 

0205 

00260 

072532R 


STA 

BIN 

0206 

00261 

062553R 


LDA 

SMALL 

0207 

00262 

042544R 


AOA 

TEMPA 

0208 

00263 

160000 


LDA 

0*1 

0209 

.00264 

072533R 


STA 

BXN1 

0210 

00265 

063532R 


LDA 

M4 

0211 

00266 

072545R 


STA 

TEMPB 

0212* 






0213 

00267 

062532R 

V » t • ■ 

LDA 

BIN 

0214 

00270 

012546R 


AND 

B 1 7 

0215 

00271 

042554R 


ADA 

CB 

0216 

00272 

006400 


CLB 


0217 

00273 

076554R 


STB 

CB 

0218 

00274 

002020 


SSA 


0219 

00275 

018346R 


JSB 

NEG 

0220 

00276 

070001 


STA 

1 

0221 

00277 

062533R 


LDA 

BXN1 

0222 

00300 

0 1 2 5 4 6 R 


AND 

B17 

0223 

00301 

003004 


CMA f 

XNA 

0224 

00302 

040001 


AOA 

1 

0225 

00303 

002020 


SSA 


0226 

00304 

016346R 


JSB 

NEG 

0227* 






0228 

00305 

066477R 


LOB 

AZ 

0229 

00306 

046544R 


AOB 

TEMPA 


5-89 
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0230 

00307 

130001 


IOR 

1,1 

0231 

00310 

081323 


RAR, 

RAR 

0232 

00311 

001323 


RAR, 

RAR 

0233 

08312 

170001 


STA 

1,1 

0234 

00313 

062532R 


LDA 

BIN 

0235 

00314 

001323 


RAR, 

RAR 

0236 

00315 

001323 


RAR, 

RAR 

0237 

00316 

072532R 


STA 

BIN 

0238 

80317 

062533R 


LOA 

BIN! 

0239 

00320 

001323 


RAR, 

RAR 

0240 

00321 

001323 


RAR, 

RAR 

0241 

00322 

072533R 


3TA 

BIN1 

0242 

00323 

036545R 


ISZ 

TEMPB 

0243 

00324 

026267R 


JMP 

V.... 

0244 

00325 

003400 


CCA 


0245 

00326 

042544R 


ADA 

TEMP A 

0246 

00327 

0725440 


STA 

TEMPA 

0247 

00330 

002002 


SZA 


0248 

0249* 

00331 

026255R 


JMP 

V • , • 

0250 

00332 

162552R 


LOA 

BIG, I 

0251 

0252* 

00333 

026145R 


JMP 

NEAR*1 

0253 

00334 

006021 

X Y 

SSB , 

RSS 

0254 

00335 

026343R 


JMP 

XBIG 

0255 

00336 

001640 


ELA, 

CLE 

0256 

00337 

001580 


ERA 


0257 

00348 

005640 


ELB, 

CLE 

0258 

00341 

005500 


ERB 


0259 

00342 

026227R 


JMP 

COMPL 

0 260 * 
0261 

00343 

062476R 

XBIG 

LDA 

AX 

0262 

00344 

066475R 


LOB 

AY 

0263 

0264* 

00345 

026247R 


JMP 

V , * 

0265* 

0266 

00346 

000000 

NEG 

NOP 


0267 

00347 

007400 


CCB 


0268 

00350 

076554R 


STB 

CB 

0269 

00351 

043527R 


ADA 

.10 

0270 

0271* 

00352 

126346R 


JMP 

NEG, I 

0272 

00353 

000000 

UNPAK 

NOP 


0273 

00354 

062353R 


LOA 

UNPAK 

0274 

00355 

043530R 


ADA 

M2 

0275 

00356 

160000 


LDA 

0,1 

0276 

00357 

072555R 


STA 

RETN 

0277 

00360 

1 60000 


LOA 

0,1 

0278 

00361 

072334R 


STA 

ADRX 

0279 

00362 

036555R 


ISZ 

RETN 

0280 

00363 

162555R 


LDA 

RETN, I 

0281 

00364 

072535R 


STA 

ADRY 

0282 

00365 

036555R 


ISZ 

RETN 

0283 

00366 

162555R 


LDA 

RETN, I 

8284 

00367 

072536R 


STA 

ADRZ 

0285 

0286* 

00370 

036555R 


ISZ 

RETN 




5-90 



PAGE 0007 #01 * ADD AND SUBTRACT - FULL PRECISION * 2JAN79 


0287 

00371 

1 62534R 


LDA 

ADRX, X 

0288 

00372 

016430R 


J8B 

EXP 

0289 

00373 

072522R 


• TA 

EXPX 

0290 

00374 

162535R 


LDA 

ADRY, I 

0291 

00375 

016430R 


JSB 

EXP 

0292 

00378 

072523R 


STA 

EXPY 

0293* 






0294 

00377 

062534R 


LDA 

ADRX 

0295 

00400 

066476R 


LOB 

AX 

0296 

00401 

016415R 


JSB 

MOVE 

0297* 






0298 

00402 

062535R 


LDA 

AORY 

0299 

00403 

066475R 


LDB 

AY 

0300 

00404 

016415R 


JSB 

MOVE 

0301* 






0302 

00405 

066477H 


LDB 

AZ 

0303 

00406 

06255 1 R 


LOA 

■ 8 

0304 

00407 

0 1 600 1 X 


JSB 

CLEAR 

0305 

00410 

072512R 


STA 

X + 4 

0306 

00411 

072513R 


STA 

X*5 

0307 

00412 

072504R 


STA 

Y*4 

0308 

00413 

072505R 


STA 

Y+5 

0309 

00414 

126353R 


JMP 

UNPAK, I 

0310* 






0311 

00415 

000000 

MOVE 

NOP 


0312 

00416 

072556R 


STA 

FROM 

0313 

00417 

063S32R 


LDA 

M4 

0314 

00420 

072542R 


STA 

CNT 

0315 

00421 

162556R 

UP 

LOA 

FROM, I 

0316 

00422 

170001 


STA 

t,I 

0317 

00423 

036556R 


X3Z 

FROM 

0318 

00424 

006004 


INB 


0319 

00425 

036542R 


xsz 

CNT 

0320 

00426 

02642 1 R 


JMP 

UP 

0321 

00427 

126415R 


JMP 

MOVE , X 

0322* 






0323 . 

00430 

000000 

EXP 

NOP 


0324 

00431 

000066 


t LE, 

ELA 

0325 

00432 

001300 


RAR 


0326 

00433 

001727 


ALF, 

ALF 

0327 

00434 

012547R 


AND 

B377 

0328 

00435 

002040 


SEZ 


0329 

00436 

003004 


CMA, 

XNA 

0330 

00437 

126430R 


JMP 

EXP, I 

0331* 






0332 

00440 

000000 

SHAME 

NOP 


0333 

00441 

002004 


XNA 


0334 

00442 

072S44R 


STA 

TEMPA 

0335 

00443 

063533R 


LDA 

M5 

0336 

00444 

072543R 


STA 

CNT1 

0337 

00445 

002400 


CLA 


0338 

00446 

072545R 


STA 

TEMPS 

0339* 






0340 

00447 

006400 

LOOP! 

CLS 


0341 

00450 

063532R 


LDA 

M4 

0342 

00451 

0 7 2 5 4 2 R 


STA 

CNT 

0343 

00452 

162544R 


LDA 

TEMPA. I 
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0344 

0345 

00453 
0045 4 

000065 

005500 


CLE, 

ERB 

ERA 

0346 

00455 

036542R 


ISZ 

CNT 

0347 

00456 

026453R 


JMP 

*-3 

0340 

00457 

032545R 


I OR 

TEMPB 

0349 

00460 

172544R 


STA 

TEMPA, I 

0350 

00461 

076545R 


STB 

TEMPB 

0351 

00462 

036544R 


ISZ 

TEMPA 

0352 

00463 

036543R 


ISZ 

CNT 1 

0353 

00464 

026447R 


JMP 

LOOP 1 

0354 

0355* 

00465 

126440R 


JMP 

SHAME, I 

0356 

00466 

000000 

GETU 

NOP 


0357 

00467 

062506R 


LOA 

X 

0 358 

00470 

022500R 


XOR 

Y 

0359 

00471 

012547R 


AND 

B377 

0360 

00472 

072537R 


STA 

SIGND 

0361 
0 362* 
0363* 

00473 

126466R 


JMP 

GETU, I 

0364 

00474 

000524R 

TEMPI 

DEF 

TEMP 

0365 

00475 

000500R 

AY 

DEF 

Y 

0366 

004 7 6 

000506R 

A X 

DEF 

X 

0 367 

00477 

0 0 0 5 1 4 R 

AZ 

DEF 

z 

0368 

00500 

000000 

Y 

BSS 

6 

0369 

00506 

000000 

X 

BSS 

6 

0370 

00514 

000000 

z 

BSS 

6 

0371 

00522 

000000 

EXPX 

NOP 


0372 

00523 

000000 

EXP Y 

NOP 


0373 

00524 

000000 

TEMP 

BSS 

5 

0374 

00531 

000000 

SHFCN 

NOP 


0375 

00532 

000000 

BIN 1 

NOP 


0376 

00533 

000000 

BIN1 

NOP 


0377 

00534 

000000 

ADRX 

NOP 


0378 

00535 

000000 

AORY 

NOP 


0379 

00536 

000000 

ADRZ 

NOP 


0380 

00537 

000000 

SIGND 

NOP 


0381 

00540 

000000 

UNITX 

NOP 


0 382 

00541 

000000 

UNITY 

NOP 


0383 

00542 

000000 

CNT 

NOP 


0384 

00543 

000000 

CNT 1 

NOP 


0385 

00544 

000000 

TEMPA 

NOP 


0386 

00545 

000000 

TEMPB 

NOP 


0 387 

00546 

000017 

B 1 7 

OCT 

17 

0 388 

00547 

000377 

B377 

OCT 

377 

0389 

00550 

000004 

B4 

OCT 

4 

0390 

00551 

000006 

.6 

OCT 

6 

0391 

00552 

000000 

BIG 

NOP 


0392 

00553 

000000 

SMALL 

NOP 


0393 

00554 

000000 

CB 

NOP 


0394 

00555 

000000 

RETN 

NOP 


0395 

00556 

000000 

FROM 

NOP 


0396 

00557 

000000 

TEMPZ 

NOP 
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0399* 

0400 

00560 

000000 

DMUL 

NOP 



0 401 

00561 

018353R 


JSB 

UNPAK 


0402 

00562 

006400 


CLB 



0403 

00563 

076545R 


STB 

TEMPB 


0404 

00564 

017076R 


JSB 

INIT 


0405 

00565 

062522R 


LOA 

EXPX 


0406 

00566 

042523R 


ADA 

EXPY 


0407 

00567 

0 7 3 3 3 4 R 


STA 

SHIFT 


0408 

00570 

017222R 


JSB 

FINDP 


0409 

00571 

063373R 


LDA 

PRECZ 


0410 

00572 

072557R 


STA 

TEMPZ 


0411 

00573 

016714R 


JSB 

slink 


0412 

00574 

066476R 

BLAST 

LDB 

AX 


0413 

00575 

017161R 


JSB 

RITE 


0414 

00576 

026602R 


JMP 

NOX 


0415 

00577 

037334R 


ISZ 

SHIFT 


0416 

00600 

000000 


NOP 



0417 

0418* 

00601 

026574R 


JMP 

BLAST 


0419 

00602 

066475R 

NOX 

LDB 

AY 


0420 

00603 

017161R 


JSB 

RITE 


0421 

00604 

026610R 


JMP 

NOY 


0422 

00605 

037334R 


ISZ 

SHIFT 


0423 

00606 

000000 


NOP 



0424 

0425* 

00607 

026602R 


JMP 

NOX 


0426 

00610 

017222R 

NOY 

JSB 

FINDP 


0427 

00611 

062557R 


LDA 

TEMPZ 


0428 

00612 

073373R 


STA 

PRECZ 


0429 

00613 

007004 


CMB t 

i INB 


0430 

00614 

046532R 


AOB 

BIN 


0431 

00615 

006020 


SSB 



0432 

00616 

026706R 


JMP 

YPREC 


0433 

00617 

062475R 


LOA 

AY 


0434 

00620 

067027R 


LOB 

PLIER 


0435 

00621 

016415R 


JSB 

MOVE 

- 

0436 

00622 

062476R 


LOA 

AX 


0437 

0438* 

00623 

066533R 


LOB 

B1N1 


0439 

00624 

007004 

RIGHT 

CMB i 

,1NB 


0440 

00625 

07733SR 


STB 

DIGIT 


0441 

0442* 

00626 

017207R 


JSB 

TURN 


0443 

00627 

062550R 

NEWSU 

LDA 

B4 


0444 

00630 

0 6 6 6 4 4 R 


LOB 

SUM 1 


0 445 

00631 

0 1 6001 X 


JSB 

CLEAR 


0446 

00632 

067027R 


LDB 

PLIER 


0447 

00633 

047524R 


AOB 

.3 


0448 

00634 

160001 


LOA 

I r I 


0 449 

00635 

012546R 


AND 

B17 


0450 

00636 

003000 


CM A 



0451 
0 452* 

00637 

073372R 


STA 

AODIT 


0453 

00640 

037372R 

KEEP 

ISZ 

ADO IT 


0454 

00641 

002001 


RSS 



0455 

00642 

026650R 


JMP 

FING 
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0456 

00643 

0160009 


JSB 

DADD 

0457 

00644 

0013529 

8UM1 

DEF 

SUM 

0458 

00645 

0013449 

CANO 

DEF 

MUCAN 

0459 

00646 

0013529 


DEF 

SUM 

0460 

30647 

026340ft 


JMP 

KEEP 

f>461* 






0462 

006 50 

$S23tiR 

FINS 

IDA 

SUM 

0463 

0063?. 

mi 4 30 R 


JSB 

EXP 

0464 

710652 

A43370R 


ADA 

TIMES 

0 465 

00553 

072522R 


STA 

EXPX 

0466 

00854 

017256R 


JSB 

8EVER 

0467 

00655 

073352R 


STA 

SUM 

0463 

@0656 

037370R 


ISZ 

TIMES 

0469 

00657 

016000R 


JSB 

DADD 

0470 

00660 

001332R 


DEF 

SUM 

0471 

00661 

00 1 36 1 R 

ANS2 

DEF 

ANSI 

0472 

00662 

001361R 


DEF 

ANSI 

0473 

00663 

017174R 


JSB 

SNIT 

0474* 






0475 

00664 

063027R 


LOA 

PLIER 

0476 

00666 

016440R 


JSB 

SHAME 

0477 

00666 

037335R 


xsz 

DIGIT 

0478 

00667 

026627R 


JMP 

NEKSU 

0479* 






0480 

00670 

063361R 


LDA 

ANSI 

0481 

00671 

016430R 


JSB 

EXP 

0482 

00672 

043334R 


AOA 

• HIPT 

0483 

00673 

072522R 


STA 

EXPX 

0484 

00674 

067535R 

ZEROl 

LOB 

M12 

0483 

00675 

06266 1 R 


LOA 

ANS2 

0486 

00676 

017270R 


JSB 

LEFT 

0487 

00677 

0172369 

GLOBS 

JSB 

8EVEP 

0488 

00700 

0333678 


108 

ANS 

0489 

00701 

073361R 


STA 

ANSI 

0490 

00702 

0 6 2 6 6 1 R 


LDA 

ANS2 

0491 

00703 

067360R 


LDB 

ADDRZ 

0492. 

00704 

016413R 


JSB 

MOVE 

0493 

00705 

127401R 


JMP 

retni.i 

0494* 






0495 

00706 

062476R 

YPREC 

LOA 

AX 

0496 

00707 

067027R 


LDB 

FLIER 

0497 

00710 

016413R 


JSB 

MOVE 

0496 

00711 

066632R 


LDB 

BIN 

0499 

00712 

062475R 


LOA 

AY 

0500 

00713 

026624R 


JMP 

RIGHT 

0301* 






0502 

00714 

000000 

SLINK 

NOP 


0503 

00715 

062533R 


LDA 

BIN 1 

0504 

00716 

007004 


CMBi 

ZNB 

0505 

00717 

046332R 


ADS 

BIN 

0306 

00720 

006020 


SSB 


0507 

00721 

062532R 


LDA 

BIN 

0508 

00722 

072724R 


STA 

clunk 

0509 

00723 

126714R 


JMP 

SLINK, I 

0510* 






051 1 

00674 


HOORY 

EQU 

ZEROl 

0512 

00724 

000000 

CLUNK 

NOP 
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0513* 


0514 00725 

0515 00726 

0516 00727 

0517 0073P 

0518 00731 

0519 00732 

0520 00733 

0521 00734 

0522 00735 

0523 00736 

0524 00737 

0525 00740 
0526* 

0527 00741 

0628 00742 

0529 00743 

0530 00744 

0531 00745 

0532 00746 

0533 00747 

0534 00750 

0535 00751 

0536 00752 

0537 0M753 

0538 00754 

0539 00755 
0540* 

0541 00756 

0542 00757 

0543 00760 

0544 00761 

0545 00762 

0546 00763 

0547 00764 

0548 00765 

0549 00766 

0550 00767 

0551 00770 

0552 00771 

0553 00772 
0554* 

0555 00773 

0556 00774 

0557 00775 

0558 00776 

0559 00777 

0560 01000 

0561 01001 

0562 01002 

0563 01003 

0564 01004 
0565* 

0566 01005 

0567 01006 

0568 01007 

0569 01010 


000000 DO I V 

0163539 

007400 

076545M 

017076R 

062523R 

0020 ?: 1 

002400 

003004 

0 4 2 5 2 2 R 

0 7 3 3 3 4 R 

017222R 

016714R 

0 b 3 3 3 4 R 

■ ?2522R 

067535R 

0 6 2 4 7 6 R 

017270R 

066475R GOGO 

0 1 7 1 6 1 R 

026756R 

003400 

042522R 

072522R 

026747R 

062522R NMORE 

0 7 3 3 3 4 R 

062475R 

067027R 

016415R 

062476R 

017207R 

173027R 

06255 1 R 

066644R 

016001 X 

07 335 1 R 

073350R 

062644R 

002004 

073374R 

063533R 

073375R 

062645R 

002004 

073376R 

063532R 

0 7 3 4 0 0 R 

163376R LOTS 
001700 
173376R 
012546R 


NOP 

JSB UNPAK 
CCB 

STB TEMP6 
JSB INIT 
LOA EXP V 
SSA.RSS 
CL A 

CMA, INA 
ADA EXPX 
STA SHIFT 
JSB FINDP 

JSB SLINK 
LOA SHIFT 
STA EXPX 
LOB M l 2 
LOA AX 
JSB LEFT 
LOB AY 
JSB RITE 
JMP NMORE 
CCA 

ADA EXPX 
STA EXPX 
JMP GOGO 

LOA EXPX 
STA SHIFT 
LOA AY 
LDB FLIER 
JSB MOVE 
LDA AX 
JSB TURN 
STA PLIER.I 
LDA ,6 
LDB SUM! 

JSB CLEAR 
STA MUC AN*5 
STA MUC AN*4 

LOA SUM 1 
INA 

STA TEMPO 
LDA M5 
STA TEMPO 
LOA CANO 
INA 

STA TEMPE 
LDA M4 
STA TEMPC 

LOA TEMPE , 1 
ALF 

STA TEMPE, I 
AND B 17 
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0570 

01011 

073405R 


ST A 

CLCAZ*3 

0571 

01012 

063361 R 


LDA 

ANSI 

0572 

01013 

016430R 


JSB 

EXP 

0573 

01014 

002004 


INA 


0574 

01015 

072522R 


ST A 

EXPX 

0375 

01016 

017256R 


JSB 

REVER 

0576 

01017 

073361R 


STA 

ANSI 

0377 

01020 

016000R 


JSB 

DADD 

0578 

01021 

001402R 


DEP 

cleaz 

0379 

01022 

00 1 36 1 R 


DEP 

ANSI 

0380 

01023 

00 1 36 1 R 


DEP 

ANSI 

0581* 






0582 

01024 

017174R 


JSB 

SNIT 

0563 

01025 

016003R 

MORE 

JSB 

DSUS 

0564 

01026 

001361R 


DEP 

ANSI 

0585 

01027 

001336R 

PLIER 

DEP 

MPLY 

0566 

01030 

000514R 


OEP 

Z 

0587 

01031 

062514R 


LOA 

z 

0568 

01032 

000010 


SLA 


0589 

01033 

027041R 


JMP 

OVERT 

0590 

01034 

037370R 


132 

TIMES 

0591 

01035 

062477R 


LDA 

AZ 

0592 

01036 

066661 R 


LDB 

ANS2 

0593 

01037 

01641SR 


JSB 

MOVE 

0594 

01040 

027025R 


JMP 

MORE 

0595* 






0596 

01041 

063370R 

OVERT 

LDA 

TIMES 

0597 

01042 

067400R 


LDB 

TEMPC 

0596 

01043 

006004 


INB 


0599 

01044 

006003 


SZB i 

RSS 

0600 

01045 

027051 R 


JMP 

IOR1 

0601 

01046 

001700 


ALP 


0602 

01047 

034901 


ISZ 

1 

0603: 

01050 

027046R 


JMP 

*•2 

0604 

01051 

133374R 

IOR1 

IOR 

TEMPO, I 

0605 

01052 

173374R 


STA 

TEMPO, I 

0606 

01053 

002400 


CL A 


0607 

01054 

073370R 


STA 

TIMES 

0608 

01055 

037400R 


ISZ 

TEMPC 

0609 

01056 

027005R 


JMP 

LOTS 

0610 

01057 

037375R 


ISZ 

TEMPO 

0611 

01060 

002001 


RSS 


0612 

01061 

027065R 


JMP 

DONE1 

0613 

01062 

037376R 


ISZ 

TEHPE 

0614 

01063 

037374R 


ISZ 

TEMPO 

06:15 

01064 

027003R 


JMP 

L0TS»2 

0616* 






0617 

01065 

063334R 

DONE! 

LOA 

SMIPT 

0618 

01066 

072522R 


STA 

EXPX 

0619 

01067 

067535R 


LDB 

M12 

0620 

01070 

062644R 


LDA 

SUM1 

0621 

01071 

017270R 


JSB 

LEFT 

0622 

01072 

062644K 


LuA 

Sum t 

0*24 

010/3 

06666 J K' 


l f.e 

A. k S2 

0624 

01074 

01 6415R 


JSB 

MOVE 

0625 

01075 

026674R 


JMP 

HOORY 

0626* 
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0627 

0628 

0629 

0630 

0631 

0632 

0633 

0634 

0635 

0636 
0637* 

0638 

0639 

0640 

0641 

0642 

0643 

0644 

0645 
0S46 

0647 

0648 

0649 

0650 

0651 

0652 

0653 

0654 

0655 

0656 

0657 

0658 

0659 

0660 
0661 
0662 

0663 

0664 

0665 

0666 

0667 

0668 

0669 

0670 

0671 

0672 

0673 

0674 

0675 

0676 

0677 

0678 
0679* 
0680 
0681 
0682 
0 6 83 
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01076 

000000 

INIT 

NOP 


01077 

016466R 


JSB 

GETU 

01100 

006400 


CL8 


01101 

062537R 


LDA 

&IGNO 

01102 

000010 


SLA 


01103 

006004 


INB 


01104 

077367R 


STB 

ANS 

01105 

062555R 


LDA 

RETN 

01106 

07340 1 R 


STA 

RETN1 

01107 

127076R 


JMP 

INIT, I 

01110 

000000 

PRECN 

NOP 


01111 

002004 


INA 


01112 

164000 


LDB 

0,1 

01113 

076415R 


STB 

MOVE 

01114 

002004 


INA 


01115 

164000 


LDB 

0,1 

01116 

076545R 


STB 

TEMPB 

01117 

002004 


INA 


01120 

164000 


LOB 

0 1 1 

01121 

076353R 


STB 

UNPAK 

01122 

062415R 


LDA 

MOVE 

01123 

007400 


CCB 


01124 

076000R 


STB 

DADD 

01125 

077 1 6 1 R 


STB 

RITE 

01126 

006400 

PREC3 

CLB 


01127 

076003R 


STB 

DSUB 

01130 

067532R 


LDB 

M4 

01131 

076544R 


STB 

TEMP A 

01132 

002003 

PRECi 

SZA, 

RSS 

01133 

027142R 


JMP 

PREC4 

01134 

000065 


CLE, 

ERA 

01135 

001121 


ARS, 

ARS 

01136 

001100 


ARS 


01137 

036003R 


ISZ 

DSUB 

01140 

036544R 


isz 

TEMPA 

01141 

027132R 


JMP 

PRECI 

01142 

066003R 

PREC4 

LDB 

DSUB 

01143 

036000R 


ISZ 

DADD 

01144 

027152R 


JMP 

PREC5 

01145 

062545R 


LDA 

TEMPB 

01146 

006003 


SZB, 

RSS 

01147 

027126R 


JMP 

PRFC3 

01150 

047526R 


ADB 

.8 

01151 

1271 10R 


JMP 

PRECN, I 

01152 

062353P 

PREC5 

LDA 

UNPAK 

01153 

037 1 6 1 R 


ISZ 

RITE 

01154 

127U0R 


JMP 

PRECN, I 

01155 

006003 


SZB, 

RSS 

01156 

027126R 


JMP 

PREC3 

01157 

046550R 


ADB 

B4 

01160 

1271 10R 


JMP 

PRECN , I 

01161 

000000 

RITE 

NOP 


01162 

074000 


STB 

0 

01163 

043S24R 


ADA 

.3 

01164 

160000 


LDA 

0 , I 
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PACE 

0014 001 * MULTIPLE 

1 1 

DIVIDE *PULL PRCCXIXON *10MAR72 

‘■.S' 

, % 

1 


01684 

01165 

012546R 

AND 

017 

1 

il 

f# - 

0669 

01166 

002002 

•ZA 


1 

L 

0666 

01167 

127161R 

JNP 

RITE,! 

1 


0687 

01170 

037161R 

x»z 

RITE 

! 

idir 


0668 

01171 

074000 

IT6 

0 

if 


0669 

01172 

016440R 

JIB 

SHAME 

i| 

% 


0690 

01173 

127161R 

JMP 

RITE,! 

1 


0661* 





% 

1 


0692 

01174 

000000 9HXT 

NOP 




0693 

01175 

06336 1 R 

LOA 

ANll 



0694 

01176 

002021 

ISA 

R8S 

1 


0699 

04177 

127174R 

JMP 

•NIT, I 

1 


0696 

01200 

016430R 

Jl§ 

EXP 



0697 

01201 

073361R 

• TA 

ANll 

fi' 

t- 


0698 

01202 

062661 R 

LOA 

ANS2 

$ 

$ 


0699 

01203 

016440R 

JIB 

SHAME 



0700 

01204 

037361R 

xsz 

ANSI 

■ £ 


0701 

01205 

027202R 

JNP 

*•3 

i.,1 


0702 

01206 

127174R 

JNP 

8NIT , I 



0703* 







0704 

01207 

000000 TURN 

NOP 


i 


0709 

01210 

066645R 

LOB 

CANO 

■ 4 


0706 

01211 

016415R 

JIB 

MOVE 



0707 

01212 

062936R 

LOA 

AORZ 

t 


0708 

01213 

073360R 

IT A 

AODRZ 



0709 

01214 

062551 R 

LOA 

.6 



0710 

01215 

066661R 

LOB 

ANS2 


!; • 

0711 

01216 

01600 IX 

JIB 

clear 


1 . 

0712 

01217 

073370R 

IT A 

TIMES 

| 


0713 

01220 

172645R 

8TA 

CANO, I 



0714 

01221 

127207R 

JMP 

TURN, I 

F 


0719* 







0716 

01222 

000000 FINDP 

NOP 




0717 

01223 

066523R 

LOB 

EXPY 



0718 

01224 

062622R 

LOA 

EXPX 



0719 

01225 

003004 

CMA 

, INA 



0720 

01226 

042923R 

ADA 

EXPY 



0721 

01227 

002020 

IIA 




0722 

01230 

066522R 

LOB 

EXPX 



0723 

01231 

077373R 

8TB 

PRECZ 



0724* 







0725 

01232 

062478R 

LOA 

AX 



0726 

01233 

0171 10R 

JIB 

PRECN 



0727 

01234 

076532R 

8TB 

BIN 



0728 

01235 

006003 

iZB 

,RSS 



0729 

01236 

027245R 

JMP 

ZERO 



0730 

01237 

062475R 

LOA 

AY 



0731 

01240 

017U0R 

JIB 

PRECN 



0732 

01241 

076533R 

8TB 

BIN1 



0733 

01242 

006003 

IZB 

, RSI 



0734 

01243 

027245R 

JMP 

ZERO 



0735 

01244 

127222R 

JMP 

PINOP,I 



0736* 







0737 

01245 

063373R ZERO 

LOA 

PRECZ 



0736 

01246 

072522R 

8TA 

EXPX 



0739 

01247 

062S36R 

LOA 

AORZ 



0740 

01250 

073360R 

3TA 

AODRZ * CORN. 
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0741 

01251 

002400 


CLA 


0742 

01252 

073362R 


8T A 

ANSI *1 

0743 

01253 

073363R 


STA 

ANS1*2 

0744 

01254 

073364R 


STA 

ANSI *3 

0745 

01255 

026674R 


JMP 

ZEROl 

0 746* 






0747 

01256 

000000 

REVER 

NOP 


0748 

01257 

062522R 


LDA 

EXPX 

0749 

01260 

006700 


CLB, 

CCE 

0750 

01261 

002020 


SS A 


0751 

01262 

005500 


ERB 


0752 

01263 

002020 


SS A 


0753 

01264 

003004 


CMA, 

INA 

0754 

01265 

001727 


ALF, 

ALF 

0755 

01266 

030001 


IOR 

1 

0756 

01267 

127256R 


JMP 

REVER, I 

0757* 






0758 

01270 

000000 

LEFT 

NOP 


0759 

01271 

076542R 


STB 

CNT 

0760 

01272 

072557R 


STA 

TEMPZ 

0761 

01273 

062557R 

SHFL 

LDA 

TEMPZ 

0762 

01274 

002004 


INA 


0763 

01275 

072544R 


STA 

TEMPA 

07 64 

01276 

06353 1R 


LDA 

M3 

0765 

01277 

072543R 


STA 

CNT 1 

0766 

01300 

162544R 


LDA 

TEMPA, I 

0767 

01301 

001700 


ALF 


0768 

01302 

012546R 


AND 

B17 

0769 

01303 

002002 


SZA 


0770 

01304 

127270R 


JMP 

LEFT , I 

0771 

01305 

1 6 2 5 4 4 R 


LDA 

TEMPA, I 

0772 

01306 

001700 


ALF 


0773 

01307 

172544R 


STA 

TEMPA, I 

0774* 






0775 

01310 

066544R 

USI 

LOB 

TEMPA 

0776 

01311 

006004 


INB 


0777 

01312 

160001 


LDA 

1,1 

0778 

01313 

001700 


ALF 


0779 

01314 

012546R 


AND 

B 1 7 

0780 

01315 

132544R 


IOR 

TEMPA, I 

0781 

01316 

172544R 


STA 

TEMPA, I 

0782 

01317 

160001 


LDA 

1,1 

0783 

01320 

013523R 


AND 

B7777 

0784 

01321 

001700 


ALF 


0785 

01322 

170001 


STA 

1,1 

0786 

01323 

076544R 


STB 

TEMPA 

0787 

01324 

036543R 


ISZ 

CNT 1 

0788 

01325 

027310R 


JMP 

USI 

0789 

01326 

003400 


CCA 


0790 

01327 

042522R 


ADA 

EXPX 

0791 

01330 

07 25 22 R 


STA 

EXPX 

0792 

01331 

036542R 


ISZ 

CNT 

0793 

01332 

027 27 3 R 


JMP 

SHFL 

0794 

01333 

127270R 


JMP 

LEFT, I 

0795* 






0796 

01334 

000000 

SHIFT 

NOP 


0797 

01335 

000000 

DIGIT 

NOP 
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0798 

01336 

000000 

MPLY 

BSS 

6 

0799 

01344 

000000 

MUCAN 

BSS 

6 

0800 

01352 

000000 

SUM 

BSS 

6 

0801 

01360 

000000 

AODRZ 

NOP 


0802 

01361 

000000 

ANSI 

BSS 

6 

0803 

01367 

000000 

ANS 

NOP 


0804 

01370 

000000 

TIMES 

NOP 


0805 

01371 

000002 

B2 

OCT 

2 

0806 

01372 

000000 

ADOIT 

NOP 


0807 

01373 

000000 

PRECZ 

NOP 


0808 

01374 

000000 

TEMPO 

NOP 


0809 

01375 

000000 

TEMPO 

NOP 


0810 

01376 

000000 

TEMPE 

NOP 


0811 

0 1377 

000000 

TEMPF 

NOP 


0812 

01400 

000000 

TEMPO 

NOP 


0813 

01401 

000000 

RETN1 

NOP 


0814 

01402 

000000 

CLEAZ 

OCT 

0 » 0 * 0 


01403 

000000 





01404 

000000 




0815 

01405 

000000 


NOP 
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P* f iE 0017 #01 * 

DECIMAL 

TO BINARY 

* 

0818 

01406 

000000 

DTBI 

NOP 


0819 

01407 

006400 


CL8 


0820 

01410 

0775078 


STB 

BNUM 

0821 

01411 

077515R 


STB 

YZ*4 

0822 

01412 

07 75 1 6R 


STB 

YZ*5 

0823 

01413 

103101 


CLO 


0824 

01414 

163406R 


LOA 

DTBI, I 

0825 

01415 

073517R 


ST A 

XADDR 

0826 

01416 

037406R 


ISZ 

DTBI 

0827 

01417 

163406R 


LOA 

OTBI, I 

0828 

01420 

073520R 


ST A 

ZADDR 

0829 

01421 

037408R 


ISZ 

DTBI 

0830 

01422 

062522R 


LDA 

EXPX 

0831 

0832* 

01423 

073521R 


STA 

XFLAG 

0833 

01424 

063517R 


LOA 

XADDR 

0834 

01425 

067510R 


LOB 

YADDR 

0835 

01426 

016413R 


JSB 

MOVE 

0836 

01427 

06351 1R 


LDA 

YZ 

0837 

01430 

016430R 


JSB 

EXP 

0838 

01431 

002003 


SZA, 

RSS 

0839 

01432 

02 7 44 1 R 


JMP 

DOWNT 

0840 

01433 

002020 


SS A 


0841 

01434 

027475R 


JMP 

GORIT 

0842 

01435 

003004 


CMA , 

INA 

0843 

01436 

070001 


STA 

l 

0844 

01437 

063510R 


LDA 

YADDR 

0845 

0846* 

01440 

017270R 


JSB 

LEFT 

0847 

01441 

0635 1 2R 

downt 

LOA 

YZ* 1 

0848 

01442 

002002 


SZA 


0849 

01443 

027467R 


JMP 

BADDO 

0850 

01444 

063513R 


LDA 

YZ*2 

0851 

01445 

006404 


CLB, 

INB 

0852 

01446 

001700 

DT25 

ALF 


0853 

014 47 

072524R 


STA 

TEMP 

0854 

01450 

012548R 


AND 

B17 

0855 

01451 

043507R 


ADA 

BNUM 

0856 

01452 

072525R 


STA 

TEMP* 1 

0857 

01453 

057526R 


CPB 

.« 

0858 

01454 

027471 R 


JMP 

DONEW 

0859 

01455 

017503R 


JSB 

OFLO 

0860 

01456 

017503R 


JSB 

OFLO 

0861 

01457 

042525R 


ADA 

TEMP* 1 

0862 

01460 

017503R 


JSB 

OFLO 

0863 

01461 

073507R 


STA 

BNUM 

0864 

01462 

062524R 


LDA 

TEMP 

0865 

01463 

056550R 


CPB 

B4 

0866 

01464 

0635 14R 


LDA 

YZ*3 

0867 

01465 

006004 


INB 


0868 

0869* 

01466 

027 446 R 


JMP 

0T25 

0870 

01467 

003400 

BADDO 

CCA 


0871 

01470 

102101 


STO 


0872 

01471 

1 7 3520 R 

DONEW 

STA 

ZAOOR, 

0873 

01472 

06352 1 R 


LDA 

XFLAG 

0874 

01473 

072522R 

5-104 


STA 

EXPX 



PAGE 

0018 *01 * DECIMAL 

TO BINARY * 

0875 

01474 

127406R 


JMP 

DTB I , I 

0876* 






0877 

01475 

072415R 

GORIT 

STA 

MOVE 

0878 

01476 

063510R 


LDA 

YADDR 

0879 

01477 

016440R 


JSB 

SHAME 

0880 

01500 

036415R 


ISZ 

MOVE 

0881 

01501 

027476R 


JMP 

G0RIT*1 

0682 

01502 

027 44 1 R 


JMP 

DOWNT 

0883* 






0884 

01503 

000000 

OFLO 

NOP 


0885 

01504 

001210 


RAL, 

SLA 

0886 

01505 

027467R 


JMP 

BADDO 

0887 

01566 

127503R 


JMP 

OFLO, I 

0888* 






0889 

01507 

000000 

BNUM 

NOP 


0890 

01510 

00 1 5 1 1 R 

YAOOR 

OEF 

*♦1 

0891 

01511 

000000 

YZ 

BSS 

6 

0892 

01517 

000000 

XADDR 

NOP 


0893 

01526 

000000 

ZAODR 

NOP 


0894 

01521 

000000 

XFLAG 

NOP 


0895* 






0896 

01522 

177763 

M 1 3 

OEC 

*13 

0897 

01523 

007777 

87777 

OCT 

7777 

0898 

01524 

000003 

,3 

OCT 

3 

0899 

01525 

000005 

• 3 

OCT 

5 

0900 

01526 

000010 

.8 

DEC 

8 

0901 

01527 

000012 

,10 

DEC 

10 

0902 

01530 

177776 

M2 

OEC 

-2 

0903 

01531 

177775 

M3 

DEC 

• 3 

0904 

01532 

177774 

M4 

DEC 

•4 

0905 

01533 

177773 

M5 

DEC 

■ 5 

0906 

01534 

177766 

M 1 0 

DEC 

-10 

0907 

01535 

177764 

M 1 2 

DEC 

•12 

0908 




END 


** NO ERRORS! AMD 

A3MB, 25117* 

•4025 IB 
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P *9E 0002 *01 * TIME BASE GENERATOR ORIVER *2JAN75 


0001 



ASMB i R 

'f B » L 



0003 

00000 



NAM 

0.43 


0004 




ENT 

D. 43, ETIME 

,1.43 

0005 




ENT 

TIMEX, TIMEY, MAXT, MAXTI, TMARK 

0006* 







0007 

00000 

000000 

0.43 

NOP 


INITIATOR ENTRY 

0008 

00001 

002400 


CLA 



000 9 

00002 

182610 


OTA 

TBG 

OUTPUT TO CHANNEL 

0010 

00003 

183710 


STC 

TBG, C 

ENCODE CHANNEL 

001 1 

00084 

126000R 


JMP 

D.43,2 

RETURN TO CALLER 

0012* 







00 1 3 

00005 

000000 

1.43 

NOP 


continuator entry 

00 1 4 

00006 

036023R 


ISZ 

TMARK 

ADD 1 TO INTERRUPT COUNTER 

0015 

00007 

000000 


NOP 


IN CASE OF OVERFLOW 

0016 

00010 

036024R 


ISZ 

TIMEX 

ADD 1 TO TIME COUNTER 

00 1 7 

00011 

002001 


RSS 


IF NO OVERFLOW, RETURN 

00 1 8 

00012 

036025R 


ISZ 

TIMEY 

IF OVERFLOW ADD 1 TO 2ND WORD 

0019 

00013 

103710 


STC 

TBG, C 

ENCODE CHANNEL 

0020 

00014 

126005R 


JMP 

1.43,1 

RETURN TO INTERRUPTED SEQUENCE 

0021* 







0022* 

TIME 

DELAY ROUTINE 




0023* 







0024 

00015 

000000 

ETIME 

NOP 



0025 

00016 

006400 


CLB 


SET INTERRUPT MARK TO 0 

0026 

00017 

076023R 


STB 

TMARK 


0027 

00020 

052023R 


CPA 

TMARK 

WHEN »A» EQUALS TMARK, RETURN 

0026 

00021 

126015R 


JMP 

ETIME, I 

OTHERWISE KEEP LOOPING 

0029 

00022 

026020R 


JMP 

4*2 


0030* 







0031 

00010 


TBG 

EQU 

10B 


0032 

00023 

000000 

TMARK 

NOP 



0033 

00024 

000000 

TIMEX 

NOP 



0034 

00025 

000000 

TIMEY 

NOP 



0035 

00026 

000000 

MAXT 

NOP 



0036 

00027 

000000 

maxti 

NOP 



0037 




end 



** NO ERRORS! AMD 

ASMB# 291 17*402518 
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P A 6£ 0002 *01 * BINARY TO BCD * 2JAN75 


0001 



0003 

00000 


0004 



0005 

00000 

000000 

0006 

00001 

072103R 

0007 

00002 

072110R 

0000 

00003 

002003 

0009 

00004 

126000R 

0010 

00005 

006400 

0011 

00006 

0761 1 tR 

0012 

00007 

066U6R 

0013 

00010 

076112R 

0014* 



0015 

00011 

066110R 

0016 

00012 

0461 16R 

0017 

00013 

0761 10R 

0018 

00014 

0361 1 1R 

0019 

00015 

006020 

0020 

00016 

026046R 

0021* 



0022 

00017 

062103R 

0023 

00020 

042117R 

0024 

00021 

072103R 

0025 

00022 

036112R 

0026 

00023 

0260 HR 

0027* 



0028 

00024 

062116R 

0029 

00025 

072112R 

0030 

00026 

002004 

0031 

00027 

072113R 

0032 

00030 

0 6 2 1 1 1 R 

0033 

00031 

006400 

0034* 



0035 

00032 

046104R 

0036 

00033 

050001 

0037 

00034 

026043R 

0038 

00035 

036113R 

0039 

00036 

026032R 

0040* 



0041 

00037 

062103R 

0042 

00040 

0421 15R 

0043 

00041 

072103R 

0044 

00042 

0260 1 1 R 

0045* 



0046 

00043 

062103R 

0047 

00044 

042114R 

0048 

00045 

026041 R 

0049* 



0050 

00046 

062103R 

0051 

00047 

126000R 

0052* 




ASMB , R , B , L 



NAH 

BIBCD 


ENT 

BIBCD, BCDBI 

BIBCO 

NOP 



STA 

TEMP 


STA 

NUMB 


SZA, 

RSS 


JMP 

BIBCD, I 


CLB 



STB 

CNTR3 


LDB 

DM10 


STB 

CNTR4 

L00P1 

LOB 

NUMB 


ADB 

DM10 


STB 

NUMB 


ISZ 

CNTR3 


SSB 



JMP 

FIN 


LOA 

TEMP 


ADA 

B6 


STA 

TEMP 


ISZ 

CNTR4 


JMP 

L00P1 


LDA 

DM10 


STA 

CNTR4 


INA 



STA 

CNTR5 


LDA 

CNTR3 


CLB 


ADD 

ADB 

B 1 44 


CPA 

1 


JMP 

OUT 


ISZ 

CNTR5 


JMP 

ADD 


LDA 

TEMP 


ADA 

B140 

OUT 1 

STA 

TEMP 


JMP 

LOOP 1 

OUT 

LDA 

TEMP 


ADA 

B3140 


JMP 

OUT l 

FIN 

LOA 

TEMP 


JMP 

BIBCD, I 


5-110 



VOLUME I. CDA SYSTEM MANUAL 





BCD TO BINARY 


5-111 



PAGE 0003 #01 BCD TO BINARY 


0055 

00050 

000000 

BCOB I 

NOP 


0056 

00051 

002003 


SZA | 

i RSS 

0057 

00052 

126050R 


JMP 

BCDBI, 

0058 

00053 

072103R 


STA 

TEMP 

0059 

00054 

012120R 


AND 

017 

0060 

00055 

072107R 


STA 

ANS 

0061 

00056 

062105R 


LDA 

B1750 

0062 

00057 

016066R 


JSB 

SHIFT 

0063* 






0064 

00060 

062104R 


LDA 

B 1 44 

0065 

00061 

016066R 


JSB 

SHIFT 

0066* 






0067 

00062 

062 1 2 1 R 


LDA 

B 1 2 

0068 

00063 

0 1 6066R 


JSB 

SHIFT 

0069* 






0070 

00064 

062107R 


LDA 

ANS 

0071 

00065 

126050R 


JMP 

BCDBI, 

0072* 






0073 

00066 

000000 

SHIFT 

NOP 


0074 

00067 

072106R 


STA 

N 

0075 

00070 

062103R 


LDA 

TEMP 

0076 

00071 

001700 


ALF 


00 77 

00072 

072103R 


STA 

TEMP 

0078 

00073 

012120R 


AND 

Bt 7 

0079 

00074 

002003 


SZA, 

RSS 

0080 

00075 

126066R 


JMP 

SHIFT, 

0081 

00076 

100200 


OCT 

100200 

0082 

00077 

000106R 


DEF 

N 

0083 

00100 

042107R 


ADA 

ANS 

0084 

00101 

072107R 


STA 

ANS 

0085 

00102 

126066R 


JMP 

SHIFT, 

0086* 






0087 

00103 

000000 

TEMP 

NOP 


0088 

00104 

000144 

B 1 44 

OCT 

144 

0089 

00105 

001750 

B 1 750 

OCT 

1750 

0090 

00106 

000000 

N 

NOP 


0091 

00107 

000000 

ANS 

NOP 


0092 

00110 

000000 

NUMB 

NOP 


0093 

00111 

000000 

CNTR3 

NOP 


0094 

00112 

000000 

CNTR4 

NOP 


0095 

00113 

000000 

CNTR5 

NOP 


0096 

00114 

003140 

B3140 

OCT 

3140 

0097 

00115 

000140 

B 1 4 0 

OCT 

140 

0098 

00116 

177766 

DM10 

DEC 

• 10 

0099 

00117 

000006 

B6 

OCT 

6 

0100 

00120 

000017 

B 1 7 

OCT 

17 

0101 

00121 

000012 

B12 

OCT 

12 

0102 




END 
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READ TIME OF DAY 


5 - 1 13 


P* r .fc 0002 *01 * READ TIME OF DAY * 30DEC74 


0001 



ASMB, 

r,b,l 




0003 

00000 



NAM 

RTOO 



000 4 




ENT 

RTOO.MSGl, 

YR 


0005 




EXT 

PRINT, MOOT 


0006* 








0007 

00000 

000000 

RTOO 

NOP 




0008 

00001 

062002X 


IDA 

MOOT 

MODEM TABLE 


0009 

00002 

072134R 


STA 

TAB 



0010 

00003 

062136R 


LDA 

MSG 

MESSAGE BUFFER 


00 1 1 

00004 

072135R 


STA 

BUFF 



0012 

00005 

002400 


CLA 




00 13 

00006 

07 2 1 37 R 


STA 

ERROR 

ERROR FLAG 


00 1 4 

00007 

103716 


STC 

TCG , C 



0015 

00010 

066166R 


LOB 

*D» 1 0 



0016 

0001 1 

102316 

T0D2 

8F8 

TCG 

SEE IF ON 


0017 

00012 

002001 


RSS 


NOT YET 


0018 

00013 

026022R 


JMP 

T0D3 

OK GET TIME 


0019 

00014 

034000 


ISZ 

0 



0020 

00015 

0260 1 1 R 


JMP 

TDD2 



0021 

00016 

034001 


ISZ 

1 



0022 

00017 

0260 1 1 R 


JMP 

T0D2 



0023 

00020 

036137R 


ISZ 

ERROR 

SET ERROR FLAG AND FILL 

0024 

00021 

026027R 


JMP 

T0D4 

BUFFER WITH 0 


0025* 








0026 

00022 

102516 

T0D3 

LI A 

TCG 

DOODODOODOHHHHHH 


0027 

00023 

007400 


CCB 




0028 

00024 

050001 


CPA 

1 



0029 

00025 

026014R 


JMP 

T002+3 

BAD DATA 


0030* 








0031 

00026 

106516 


LIB 

TCG 

MMMMMMMM8SSSS8SS 


0032 

00027 

072140R 

T0D4 

STA 

NAS A 1 



0033 

00030 

060001 


LDA 

1 



0034 

00031 

012167R 


AND 

*877577 



0035 

00032 

07 2 1 4 1 R 


STA 

NA3A2 



0036* 








0037 

00033 

0 6 2 1 4 0 R 


LDA 

NASA1 



0038 

00034 

001222 


RAL, 

RAL 



0039 

00035 

070001 


STA 

1 



0040 

00036 

005700 


BLF 




0041 

00037 

012170R 


AND 

■ 03 



0042 

00040 

016103R 


JSB 

PUT 

PUT 1ST 2 DIGITS 

OF DAYS AWAY 

0043 

00041 

005323 


RBR, 

RBR 



0044 

00042 

005323 


RBR i 

i RBR 



0045 

00043 

060001 


LDA 

1 



0046 

00044 

016121 R 


JSB 

PUT 1 

PUT 3RD DIGIT QF 

DAY AWAY 

0047* 








00 48 

00045 

062140R 


LDA 

NASA 1 



0049 

00046 

070001 


STA 

1 



0050 

00047 

001727 


ALF, 

i ALF 



00 51 

00050 

001700 


ale 




00 52 

00051 

012 17 0 R 


AND 

*B3 



0053 

00052 

016103R 


JSB 

PUT 

PUT HOURS AWAY 


0054* 








0055 

00053 

062141R 


LDA 

NASA2 



0056 

00054 

070001 


STA 

1 



0057 

00055 

001700 


ALF 




0058 

00056 

0121 71R 


AND 

*B 1 7 




5-114 




PAGE 
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30DEC74 

0039 

00057 

172134R 


STA TAB, I 

1ST DIGIT OF MIN 

0060 

00060 

036134R 


I8Z TAB 


0061 

00061 

042172R 


ADA *835060 

ADO SEMICOLON 

0062 

00062 

172133R 


STA. BUFF, I 


0063 

00063 

036135R 


XSZ BUFF 


0064* 






0065 

00064 

062141R 


LOA NASA2 


0066 

00065 

016121R 


J3B PUTl 

2ND 0X6XT OF MIN 

0067* 






0068 

00066 

062 1 41 R 


LOA NASA2 


0069 

00007 

001727 


ALF, ALF 


0070 

00070 

001700 


ALF 


0071 

00071 

0 1 2 1 7 1 R 


ANO *B17 


0072 

00072 

016103R 


JSB PUT 

PUT SECONDS AWAY 

0073* 






0074 

00073 

107716 


CLC TCG , C 


0075 

00074 

062137R 


LOA ERROR 


0076 

00075 

002003 


SZ A , RSS 


0077 

00076 

126000R 


JMP RTOD , I 

NO ERROR 

0076* 






0079 

00077 

062173R 


LOA *05 

PRINT ERROR 

0080 

00100 

01 600 IX 


JSB PRINT 


0081 

00101 

000142R 


OEF MSG9 


0082 

00102 

126000R 


JMP RTOD, I 


0083* 






0084 

00103 

000000 

PUT 

NOP 


0083 

00104 

172134R 


STA TAB, I 


0086 

00105 

036134R 


XSZ tab 


0087 

00106 

001727 


ALF, ALF 


0088 

00107 

072133R 


STA TEMP 


0089 

00110 

060001 


LOA 1 


0090 

00111 

01217 1R 


ANO *617 


0091 

00112 

172134R 


STA TAB, I 


0092 

00113 

036134R 


XSZ TAB 


0093 

00114 

032133R 


IOR TEMP 


0094 

00115 

032174R 


XOR *630060 


0095 

00116 

172135R 


STA BUFF, I 


0096 

00117 

036135R 


XSZ BUFF 


0097 

00120 

126103R 


JMP PUT, I 


0096* 






0099 

00121 

000000 

PUTl 

NOP 


0100 

00122 

001727 


ALF, ALF 


0101 

00123 

012171R 


ANO *B 1 7 


0102 

00124 

172134R 


STA TAB, I 


0103 

00125 

036134R 


XSZ TAB 


0104 

00126 

042172R 


AOA *B35060 

ADO SEMICOLON 

0105 

00127 

001727 


ALF, ALF 


0106 

00130 

172135R 


STA BUFF, I 


0107 

00131 

03613SR 


XSZ BUFF 


0108 

00132 

126121R 


JMP PUTl, I 


0109* 






0110 




SUP 


0111 

00133 

000000 

TEMP 

NOP 


0112 

00134 

000000 

TAB 

NOP 


0113 

00135 

000000 

BUFF 

NOP 


0114 

00136 

000153R 

MSG 

OEF TIMES 


01 1 5 

00137 

000000 

ERROR 

NOP 
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0116 

00016 


TCG 

EQU 

168 

0117 

00140 

000000 

NASA 1 

NOP 


0116 

00141 

000000 

NASA2 

NOP 


0119 

00142 

052103 

NSG9 

ASC 

5, TCG ERROR 

0120 

00147 

000150R 

NSG1 

OEF 

*♦1 

0121 

00150 

052111 


ASC 

3, TIME! 

0122 

00153 

020040 

TIMEB 

ASC 

6, 

0123 

00161 

020040 


ASC 

4, 19 

0124 

00165 

033465 

YR 

ASC 

1,75 

0125 

00166 

177766 


UNS 



00167 

077577 





00170 

000003 





00171 

000017 





00172 

035060 





00173 

000005 





00174 

030060 




0126 




END 



** NO ERRORSi AND ASNB, 2S1 17-4025 1 B 
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0001 A 5MB , R , B , L 

0003 00000 NAM TTY 

0004 ENT 0 , 00 , 1.00 
0005*************************************** 

0006* ENTRY TO INITIATOR SECTION! 

0007* JSB ,IOC, 

0008* OCT (0»CLEARM»READ!2*WRITE 

0009* JMP REJECT 

0010* OEF BUFFER 

0011* DEC X X-NUMBER OF WORDS 

0012* RETURN FROM STATUS! 

0013* A * 0 FOR CLEAR, OR *1 FOR BUSY 
0014* B* NUMBER OF CHARACTERS TRANSMITTED 
0016*************************************** 


0017 

00000 

000000 0,00 

NOP 


0018 

00001 

002004 

ina 



0019 

00002 

072262R 

STA 

EQUIP 

STATUS WORD 

0020 

00003 

002004 

INA 



0021 

00004 

072302R 

STA 

XMIT 

TRANSMISSION LOG 

0022 

00005 

160001 

LOA 

1,1 


0023 

00006 

001700 

ALF 



0024 

00007 

012260R 

AND 

B7 


0025 

00010 

002003 

SZA, 

RSS 


0026 

0001 1 

026056R 

JMP 

clear 

CLEAR REQUEST 

0027 

00012 

046257R 

AOB 

B2 


0028 

00013 

07626 1 R 

STB 

TEMP 


0029 

00014 

0 6 6 2 7 2 R 

LDB 

BUSY 


0030 

00015 

006002 

SZB 


OPERATION IN PROGRESS 1 

0031 

00016 

1 26000 R 

JMP 

0.00,1 

YES! GO TO REJECT ADDRESS 

0032 

00017 

1 6626 1 R 

LOB 

TEMP, I 

BUFFER ADDRESS 

0033 

00020 

03626 1 R 

ISZ 

TEMP 


0034 

00021 

076276R 

STB 

BAOO 

BUFFER ADDRESS 

0035 

00022 

076277R 

STB 

BADD1 


0036 

00023 

1 6 6 2 6 1 R 

LOB 

TEMP, I 


0037 

00024 

005000 

BLS 


MULTIPLY WORD COUNT BY 2 

0038 

00025 

076300R 

STB 

SIZE 

SAVE CHARACTER COUNT 

0039 

00026 

07630 1 R 

STB 

SIZE 1 


0040 

00027 

006400 

CL8 



0041 

00030 

176302R 

STB 

XMIT, I 

NUMBER OF CHARS, XMITTED 

0042 

00031 

076270R 

STB 

LFLAG 

LINE FEED FLAG 

00 43 

00032 

07627 1 R 

STB 

DELFL 

LINE DELETE FLAG 

0044 

00033 

076273R 

STB 

CHAR 

LAST CHARACTER OUTPUTED 

0045 

00034 

066263R 

LOB 

SIGN 


0046 

00035 

176262R 

STB 

EQUIP, I 


00 47 

00036 

072272R 

STA 

BUSY 

SET BUSY FLAG 

004 8 

00037 

000010 

SLA 



0049 

00040 

026050R 

JMP 

READ 

READ REQUEST 

0050* 

0051 

00041 

062307R 

LOA 

B 1200 

SET UP WRITE MODE 

0052 

00042 

102614 

OTA 

CH 


0053 

00043 

062000R 

LOA 

0.00 

return ADDRESS 

0054 

000 4 4 

07 206 1 R 

STA 

1-00 
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0053 

00045 

002400 


CLA 


0P56 

00046 

872304R 


STA 

SAVA 

0057 

00047 

026105R 


JMP 

OUTPT 

0058* 






0039 

00050 

016241R 

READ 

JSB 

SPACE 

0060 

00051 

062303R 


LDA 

B 1 4 0 0 

0061 

00052 

102614 


OTA 

CH 

0062 

00053 

002400 


CLA 


0063 

00054 

103714 


STC 

CH , C 

0064 

00055 

126000R 


JMP 

0.00,1 

0065* 






0066 

00056 

062000R 

CLEAR 

LDA 

D.00 

0067 

00057 

07206 1 R 


STA 

1,00 

0068 

00060 

026203R 


JMP 

CR 

0069* 






0070 

00061 

000000 

1.00 

NOP 


0071 

00062 

107714 


CLC 

CH, C 

0072 

00063 

072304R 


STA 

SAVA 

0073 

00064 

076305R 


STB 

SAVB 

0074 

00065 

002400 


CLA 


0075 

00066 

001300 


ERA 


0076 

00067 

102201 


SOC 


0077 

00070 

002004 


ZNA 


0078 

00071 

072306R 


STA 

SAVE 

0079* 






0080 

00072 

036270R 


isz 

LFLAG 

0081 

00073 

002001 


RSS 


0082 

00074 

026215R 


JMP 

LF 

0083 

00075 

062272R 


LDA 

BUSY 

0084 

00076 

002003 


SZA, 

RSS 

0083 

00077 

026124R 


JMP 

RET 

0086 

00100 

000010 


SLA 


0087 

00101 

026 1 4 1 R 


JMP 

READS 

0088* 






0089 

00102 

062273R 


LDA 

CHAR 

0090 

00103 

052265R 


CPA 

B 1 2 

0091 

00104 

026217R 


JMP 

DONE 

0092 

00105 

166302R 

OUTPT 

LDB 

KM IT , I 

0093 

00106 

056300R 


CPB 

SIZE 

0094 

00107 

026203R 


JMP 

CR 

0095 

00110 

006004 


INB 


0096 

00111 

176302R 


STB 

XMIT, I 

0097 

00112 

162276R 


LDA 

BADD,! 

0098 

00113 

004010 


SLB 


0099 

00114 

001727 


ALF, 

ALF 

0100 

00115 

012264* 


AND 

B 1 7 7 

0101 

00116 

052274R 


CPA 

ARRO 

0102 

00117 

026237R 


JMP 

ARROW 

0103 

00120 

005011 


SLB, 

RSS 

0104 

00121 

036276R 


ISZ 

BADD 

0105 * 






0106 

00122 

102614 

SEND 

OTA 

CH 

0107 

00123 

072273R 


STA 

CHAR 

0 108 

00124 

062306R 

RET 

LDA 

SAVE 

0109 

00125 

103101 


CLO 


0110 

00126 

000036 


SLA, 

EL A 

0111 

00127 

102101 


9TF 

1 


SEND 1ST CHARACTER 

FILL BUFFER WITH SPACES 
SET FOR READ NODE 


ENCODE CHANNEL 
RETURN TO CALLER 

RETURN ADDRESS 

SEND CR LF 

CONTINUATOR ENTRY 

INHIBIT INTERRUPTS ON CHANNEL 

SAVE WORKING REGISTERS 


OUTPUT LF 

OPERATION IN PROGRESS T 
NO I FALSE INTERRUPT 

READ IN PROGRESS 


NO I FETCH CHARACTER COUNT 
DONE OUTPUTTING 7 
YES I OUTPUT CR LF 
ADD 1 TO CHAR » COUNT 

FETCH WORD 

WORKING ON HIGH ORDER 
YE8I PUT IN LOW ORDER 
HASK CHAR, 

RATK ADOny 

IF EVEN BUMP BUFFER ADDRESS 


OUTPUT 

RESTORE WORKING REGISTERS 
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0112 

00130 

062272R 


LD A 

BUSY 

0113 

00131 

002003 


SZA, 

RSS 

0114 

00132 

003400 


CCA 


0115 

00133 

07224 1 R 


STA 

SPACE 

0116 

00134 

062304R 


LD A 

SAVA 

0117 

00135 

066305R 


LOB 

SAVB 

0118 

00136 

036241 R 


ISZ 

SPACE 

0119 

00137 

103714 


STC 

CH , C 

0120 

00140 

126061R 


JMP 

1,00,1 

0121* 






0122 

00141 

102514 

READS 

LIA 

CH 

0123 

00142 

012264R 


AND 

B177 

0124 

00143 

052264R 


CPA 

0177 

0125 

00144 

026235R 


JMP 

DEL 

0126 

00145 

052275R 


CPA 

CARRT 

0127 

00146 

026235R 


JMP 

DEL 

0128 

00147 

352265R 


CPA 

012 

0129 

00150 

026123R 


JMP 

SEND ♦ 1 

0130 

00151 

052313R 


CPA 

B 1 5 

0131 

00152 

026203R 


JMP 

CR 

0132 

00153 

002003 


SZA, 

RSS 

0133 

00154 

026123R 


JMP 

SEND* 1 

0134* 






0135 

00155 

166302R 


LDB 

XMIT, I 

0136 

00156 

036004 


INB 


0137 

00157 

1 76302R 


STB 

XMIT.I 

0138 

00160 

006011 


SLB, 

RSS 

0139 

30161 

02617 1 R 


JMP 

EVEN 

0140 

00162 

001727 


ALF, 

ALF 

0141 

00163 

070001 


STA 

1 

0142 

00164 

162276R 


LD A 

BADD, I 

0143 

00165 

012264R 


AND 

B 1 77 

0144 

00166 

030001 


I OR 

1 

0145 

00167 

172276R 


STA 

BADD, I 

0146 

00170 

026123R 


JMP 

SEND+1 

0147* 






0148 

00171 

070001 

EVEN 

STA 

1 

0149 

00172 

162276R 


LD A 

BADD , I 

01.50 

00173 

012267R 


AND 

B77 4 

0151 

00174 

03000 1 


IOR 

1 

0152 

00175 

1 72276R 


STA 

BADD, I 

0153 

00176 

036276R 


ISZ 

BADD 

0154 

00177 

162302R 


LDA 

XMIT.I 

0155 

00200 

052300R 


CPA 

SIZE 

0156 

00201 

002001 


RSS 


0157 

00202 

026123R 


JMP 

SEND+1 

0158* 






0159 

00203 

002400 

CR 

CLA 


0160 

00204 

07227 1R 


STA 

DELFL 

0161 

00205 

003400 


CCA 


0162 

00206 

072270R 


STA 

LFLAG 

0163 

00207 

062307R 


LDA 

B 1200 

0164 

00210 

102614 


OTA 

CH 

0165 

00211 

062257R 


LDA 

B2 

0166 

00212 

072272R 


STA 

BUSY 

0167 

00213 

062310R 


LDA 

B 1 5 

0168 

00214 

026122R 


JMP 

SEND 
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■O' 


ENCODE CHANNEL 

RETURN TO INTERRUPTED SEQUENCE 

READ IN CHAR. 

MASK OFF EXTRANEOUS BITS 

DELETE LINE 

CARROT IS ALSO DELETE 


IGNORE LINE FEED 
CARRIAGE' RETURN 
MO CHAR 

ADD 1 TO NUMBER OF CHARS, 


2ND HALF OF WORD 
ROTATE TO TOP HALF 


MASK LOW ORDER 
MERGE 2 CHARS, 

PUT THEM AWAY 
WAIT, I FOR NEXT CHAR 


MASK HIGH ORDER CHAR, 
MERGE 2 CHARS, 

PUT IT, I AWAY 
BUMP BUFFER ADDRESS 

ALL DONE T 

YES? OUTPUT CR LF 

NO I WAIT FOR NEXT CHAR , 


LINE DELETE 


SET FOR WRITE MODE 


> 


CARRIAGE RETURN 

i OF THF 

QWmAL PAGE IS POOP 


1 
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0169* 


0170 

00215 

062265R 

LF 

LDA 

B12 

LINE FEED 

0171 

00216 

026122R 


JMP 

SEND 


0172* 







0173 

00217 

002400 

DONE 

CLA 


WAIT 300 MS 

0174 

00220 

034000 


ISZ 

0 


0175 

00221 

026220R 


JMP 

*-l 


0176 

00222 

06227 1R 


LDA 

DELFL 


0177 

00223 

002002 


SZA 



0178 

00224 

026230R 


JMP 

DEL2 

LINE DELETE 

0179 

00225 

072272R 

FIN 

STA 

BU8Y 

CLEAR BUSY FLAG 

0180 

00226 

172262R 


STA 

EQUIP, I 


0181 

00227 

026123R 


JMP 

SEND* 1 

GET OUT 

0182* 







0183 

00230 

016241R 

DEL2 

JSB 

SPACE 

FILL BUFFER WITH SPACES 

0184 

00231 

002404 


CLA, 

INA 

SET UP FOR READ MODE 

0185 

00232 

072272R 


STA 

BUSY 


0186 

00233 

062303R 


LOA 

B1400 


0187 

00234 

026122R 


JMP 

SEND 


0188* 







0189 

00235 

002404 

DEL 

CLA, 

INA 


0190 

00236 

026204R 


JMP 

CR* 1 



0191* 

0192 00237 002400 ARROW CLA CLEAR BUSY FLAG 

0193 00240 026225R JMP FIN 

0194* 

0195 00241 000000 SPACE NOP 

0196 00242 066301R LD8 SIZEl 

0197 00243 076300R STB SIZE 

0198 00244 005100 BRS DIVIDE CHAR. COUNT BY 2 

0199 00245 007004 Ctt0,XNB 

0200 00246 176302R STB XMIT,I 

0201 00247 062266R LOA B40 FILL USER BUFFER WIT,IH SPACES 

0202 00250 066277R LOB BADOl 

0203 00251 076276R STB BADD 

0204 00252 170001 STA 1,1 

0205 00253 006004 INB 

0206 00254 136302R ISZ XMIT,I 

0207 00255 026252R JMP *-3 

0208 00256 126241R JMP SPACE, I 

0209* 

0210 * 

0211* CONSTANTS AND WORKING STORAGE *** 

0212 * 

0213 00257 000002 B2 OCT 2 

0214 00260 000007 B7 OCT 7 

0215 00261 000000 TEMP NOP < . ... 

0216 00262 000000 EQUIP NOP 

0217 00263 100000 SIGN OCT 100000 

0218 00264 000177 B177 OCT 177 

0219 00265 000012 B12 OCT 12 

0220 00266 020040 B40 OCT 20040 

0221 00267 177400 B774 OCT 177400 

0222 00270 000000 LFLAG NOP 

0223 00271 000000 DELFL NOP 

0224 00272 000000 BUSY NOP 

0225 00273 000000 CHAR NOP 
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0226 

00274 

000137 

ARRO 

OCT 

137 

0227 

00275 

000136 

CARRT 

OCT 

136 

0226 

00276 

000000 

BADD 

NOP 


0229 

80277 

000000 

BADD1 

NOP 


0230 

00300 

000000 

SIZE 

NOP 


0231 

00301 

000000 

SIZE 1 

NOP 


0232 

00302 

000000 

XMIT 

NOP 


0233 

00303 

140000 

B 1 400 

OCT 

140000 

0234 

00304 

000000 

SAVA 

NOP 


0235 

00305 

000000 

SAVB 

NOP 


0236 

00306 

000000 

SAVE 

NOP 


0237 

00307 

120000 

B1200 

OCT 

120000 

0238 

00310 

000015 

B15 

OCT 

15 

0239 

00014 


CH 

EOU 

14B 

0240 




END 


* * 

NO ERRORS! AMD 

ASMB, 25117- 

'4025 1 B 


READ COMMAND 

WRITE COMMANO 
CARRIAGE RETURN 
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COUNTER DRIVER 
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0001 

0003 00000 

00 04 

0005 

0006 


ASMB,R,B,L 

NAM D.44 

ENT D, 44, DONE, I, 441 ,1,442,1,443 
EXT ABORT,BCDBI, TIMEX, LINKS 
EXT MAXT , MAXTl 


0007 ***************** *********************** 

0008* ENTRY TO INITIATOR! 

0009* J SB ,IOC. 

0010* OCT 10003 

0011* JMP REJ 

0012* DEF BUFFER ADDRESSES FOR 3 COUNTERS 

0013* DEC X 

0014* 


0015* WHERE X « 0 FOR 1 READING IN 4 WORD BCD FORMAT 
0016* a NUMBER OF READINGS IN INTEGER FORMAT 

0017* RETURN FROM CONTINUATOR SECTION • 

0018* BCD FORMAT CONTAINS A 4 WORD BCD NUMBER 
0019* INTEGER FORMAT CONTAINS THE AVERAGE OF 3 HEADINGS 
0020* + A STATUS WORD + 2 WORDS OF TIME TAG 

0021 ******************** *********************************** 


0023 

00000 

000000 D.44 

NOP 


INITIATOR ENTRY 

0024 

00001 

160001 

LDA 

1*1 


0025 

00002 

013113R 

AND 

■B70000 


0026 

00003 

002003 

SZA, 

RSS 


0027 

00004 

026037R 

JMP 

clear 

CLEAR DRIVER 

0028 

00005 

063030R 

LDA 

UNIT 


0029 

00006 

002002 

SZA 


OPERATION IN PROGRESS 

0030 

00007 

02600 1 X 

JMP 

ABORT 

YES! BOMB 

0031 

00010 

063114R 

LDA 

*6643 

PLUG IN CODE 

0032 

0001 1 

073030R 

STA 

UNIT 


0033 

00012 

0471 15R 

ADB 

*B2 


0034 

00013 

077027R 

STB 

TEMP 

BUFFER ADDRESSES 

0035 

00014 

006004 

INB 



0036 

00015 

160001 

LDA 

1 , 1 

NUMBER OF READINGS 

0037 

00016 

073037R 

STA 

MARK 


0038 

00017 

003004 

CMA , 

INA 


0039 

00020 

002003 

SZA, 

RSS 

IF 0 , MAKE *1 

0040 

00021 

003400 

CCA 



0041 

00022 

073111R 

STA 

DONE 

SAVE AS INDEX 

0042* 

0043 

00023 

167027R 

LOB 

TEMP, I 


0044 

00024 

160001 

LDA 

1,1 


0045 

00025 

073034R 

STA 

ADDR1 


00 46 

00026 

006004 

INB 



0047 

00027 

160001 

LDA 

1 . 1 


0048 

00030 

073035R 

STA 

ADDR2 


0049 

00031 

006004 

INB 



0050 

00032 

160001 

LDA 

ill 


00 51 
0052* 

00033 

073036R 

STA 

ADDR3 


0053 

00034 

016777R 

JSB 

CALL 

START THE COUNTERS 

0054 

00035 

002400 

CLA 
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0055 

00036 

126000R 

JMP 

0.44,1 

RETURN 

TO 

CALLER 

0056* 








0057 

00037 

107711 

CLEAR CLC 

CHI , C 




0058 

00040 

107712 

CLC 

CH2 , C 




0059 

00041 

107713 

CLC 

CH3 , C 




0060 

00042 

002400 

CLA 


CLEAR 

OPERATION FLAG 

0061 

00043 

073030R 

8TA 

UNIT 

AND TURN 

OFF COUNTERS 

0062 

00044 

073040R 

STA 

MAJ1 




0063 

00045 

073041R 

8TA • 

MAJ2 




0064 

00046 

073042R 

STA 

HAJ3 




0065 

00047 

126000R 

JMP 

0.44, X 

RETURN 

TO 

CALLER 

0066* 









0068* 

CONTINUATOR SECTION 

OF 

1ST COUNTER 

0069* 







0070 

00050 

000000 

1.441 

NOP 



0071 

00051 

107711 


CLC 

C H 1 1 C 


0072 

00052 

073046R 


STA 

SAVA1 

SAVE WORKING REGISTERS 

0073 

00053 

077047R 


STB 

SAVB1 


0074 

00054 

002400 


CLA 



0075 

00055 

001500 


ERA 



0076 

00056 

102201 


SOC 



0077 

00057 

002004 


INA 



0078 

00060 

073050R 


STA 

SAVE 1 


0079 

00061 

063030R 


LDA 

UNIT 


0080 

00062 

002003 


SZA, 

, RSS 

FALSE INTERRUPT t 

0081 

00063 

0261 UR 


JMP 

FALI 

YESI RETURN 

0082* 







0083 

00064 

037043R 


ISZ 

MINR1 

DONE OUTPUTTING ? 

0084 

00065 

002001 


RSS 


NO 1 

0085 

00066 

026 1 1 4R 


JMP 

READ l 

YESI TAKE A READING 

0086 

00067 

063074R 

G01 

LDA 

STC1 


0087 

00070 

072106R 


STA 

BUS1 


0088 

00071 

063033R 


LDA 

ENDT 


0089 

00072 

043043R 


ADA 

MINR1 


0090 

00073 

160000 


LDA 

0,1 

FETCH OUTPUT WORD 

0091 

00074 

103100 


CLF 

0 


0092 

00075 

106711 


CLC 

CHI 

CLEAR CHANNEL 

0093 

00076 

102111 


STF 

CHI 

POINT TO WORD 4 

0094 

00077 

102611 


OTA 

CHI 

SEND THE WORD 

0095 

00100 

063050R 

RETl 

LOA 

SAVE 1 

RESTORE THE REGISTERS 

0096 

00101 

103101 


CLO 


... 

0097 

00102 

000036 


SLA 

, ELA 


0098 

00103 

102101 


STF 

1 


0099 

00104 

063046R 


LDA 

SAVA1 


0100 

00105 

067047R 


LDB 

3AVB1 


0101 

00106 

000000 

euai 

NOP 



0102 

00107 

102100 


STF 

0 


0103 

00110 

126050R 


JMP 

1.441,1 

RETURN TO INTERRUPTED SEQUENCE 

0104* 






• * 

0105 

00111 

002400 

FALI 

CLA 



0106 

00112 

072106R 


STA 

BUS! 


0107 

00113 

026100R 


JMP 

RETl 



5-125 


PAGE 0004 #01 * COUNTER DRIVER * 6MAR75 

0108* 


0109 

00114 

104200 

READ 1 

OCT 

104200 

OLD TIME MARK 

0110 

00115 

000003X 


DEF 

TIMEX 


0111 

00 1 1 6 

104400 


OCT 

104400 

TEMPORARY SAVE 

0112 

00 1 1 7 

001062R 


DEF 

TEMPI 


0113 

00120 

063037R 


LDA 

MARK 


0114 

00121 

002003 


SZA 

, RSS 


0115 

00122 

026220R 


JMP 

BCD 1 

BCD FORMAT 

0116 

00123 

102511 


LX A 

CHI 

FETCH 1ST 2 INPUT WORDS 

0117 

00124 

106511 


LIB 

CHI 


0118 

00125 

0 i 6672R 


JSB 

FLIP 

FLIP DIGITS 

0119* 







0120 

00126 

073105R 


STA 

INI 


0121 

00127 

063040R 


LDA 

MAJ1 


0122 

00130 

002004 


INA 



0123 

00131 

002003 


SZA 

, RSS 


0124 

00132 

026160R 


JMP 

DONE1 


0125 

00133 

002021 


SS A 

, RSS 


0126 

00134 

02600 1 X 


JMP 

ABORT 


0127 

00135 

073040R 


STA 

MAJi 


0 128 

00136 

063105R 


LDA 

INI 


0129 

00137 

143034R 


ADA 

ADDR 1 , I 

ADO 2 READXNG8 

0130 

00140 

173034R 


STA 

ADDR 1 , I 

SAVE TOTAL 

0131 

00141 

063034R 


LDA 

ADDR 1 


0132 

00142 

043 1 1 5R 


ADA 

»B2 


0133 

00143 

073070R 


STA 

FAR1 

TIME TAG ADDRESS 

0134 

00144 

104200 


OCT 

104200 

ADD THE 2 TIME TAGS 

0135 

00145 

100000 


DEF 

0 , I 

OLD 0,1 

0136 

00146 

000040 


CLE 



0137 

00147 

043062R 


ADA 

TEMPI 


0138 

00150 

002040 


SEZ 



0139 

00151 

006004 


INB 



0140 

00152 

047063R 


ADB 

TEMP 1 * 1 


0141 

00153 

104400 


OCT 

104400 

DST F AR 1 , X 

0142 

00154 

101070R 


DEF 

FAR!, I 


0143 

00155 

063116R 

SEN 1 

LDA 

*B»3 

INIATI ATE NEXT READING 

0144 

00156 

073043R 


STA 

MINR 1 


0145 

00157 

026067R 


JMP 

GO 1 


0146* 







0147 

00160 

063105R 

DONE1 

LDA 

INI 


0148 

00161 

143034R 


ADA 

ADDR 1,1 

ADD 3RD READING 

0149 

00162 

806400 


CLB 



0150 

00163 

100408 


OCT 

100400 

DIVIDE BY 3 

0151 

00164 

0011 10R 


DEF 

B3 


0152 

00165 

173034R 


STA 

ADDR 1 , I 

PUT IT AWAY 

0153 

00166 

037034R 


ISZ 

ADDR 1 


0154 

00167 

063073R 


LDA 

SIGN 

PUT STATUS AWAY 

0155 

00170 

1 7 3 0 3 4 R 


STA 

ADDR 1 , 1 


0156 

00171 

0 3 7 0 3 4 R 


ISZ 

ADDR 1 


0157 

00172 

104208 


OCT 

104200 

OLD TIKE TAG 

0158 

00173 

1 0 1 8 3 4 R 


DEF 

ADDR 1,1 

DIVIDE BY 2 AND SAVE 

0159 

00174 

000040 


CLE 



0160 

00175 

005500 


ERB 



0161 

00176 

001500 


ERA 



0162 

00177 

104400 


OCT 

104400 

DST ADDRl , I 

0163 

00200 

1 0 1 0 3 4 R 


DEF 

ADDR 1 j» X 


0164 

00201 

037034R 


ISZ 

ADDR 1 
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0165 

00202 

037034R 


Z8Z 

AODR1 


0166* 







0167 

00203 

002400 

FINl 

CLA 



0168 

00204 

073040R 


STA 

MAJ1 


0169 

00205 

06304 1 R 


LDA 

MAJ2 


0170 

00206 

067042R 


LOB 

M A J 3 


0171 

00207 

002003 


SZA, 

RSS 


0172 

00210 

006002 


SZB 


ARE OTHER 2 COUNTERS FINISHED ? 

0173 

00211 

026 1 1 1 R 


JMP 

FAL1 

NO 1 RETURN 

0174 

00212 

104200 


OCT 

104200 

OLD TIME MARK 

0175 

00213 

001062R 


DEF 

TEMPI 


0176 

00214 

0 1 67 1 6R 


JSB 

TIMCK 

CHECK TO SEE IF OONS 

0177 

00215 

0001 1 1 R 


DEF 

FAL1 


0178 

00216 

001046R 


DEF 

SAVA 1 


0179 

00217 

000050R 


OEF 

1.441 


0180* 







0181 

00220 

102511 

BC01 

LI A 

CHI 

BCD FORMAT 

0182 

00221 

073105R 


STA 

INI 


0183 

00222 

0671 17R 


LOS 

■ B*4 


0184 

00223 

077102R 


STB 

CNT 1 


0185 

00224 

006400 


CLB 



0186 

00225 

001600 


ELA 


SIGN OF MANTISSA 

0187 

00226 

002200 


CME 



0188 

00227 

005600 


ELB 



0189 

00230 

001200 


RAL 



0190 

00231 

002021 


SSA , 

RSS 

SIGN OF XPONENT 

0191 

00232 

047073R 


ADB 

SIGN 


0192 

00233 

063105R 


LDA 

INI 


0193 

00234 

001727 


ALF, 

ALF 


0194 

00235 

073105R 


STA 

INI 


0195 

00236 

013120R 


AND 

*837 

MASK EXPONENT 

0196 

00237 

0431 15R 


ADA 

*B2 

ADJUST TO NANO SEC 

0197 

00240 

001727 


ALF, 

ALF 


0198 

00241 

04000 1 


ADA 

1 

MERGE EXPONENT AND SIGNS 

0199 

00242 

0 6 7 1 0 5 R 


LOB 

INI 


0200* 







0201 

00243 

173034R 

PUT! 

STA 

ADDR 1 , 1 

PUT WORD AWAY 

0202 

00244 

037034R 


ISZ 

AODR1 


0203 

00245 

037102R 


ISZ 

CNT 1 

ALL 4 WORDS DONE T 

020 4 

00246 

002001 


RSS 


NO 1 

0205 

00247 

026203R 


JMP 

FINl 

YESl PUT TIME AWAY 

0206 

00250 

060001 


LDA 

1 

MERGE BCD DIGITS 

0207 

00251 

001727 


ALF, 

ALF 


0208 

00252 

0 1 3 1 2 1 R 


AND 

■ B377 


0209 

00253 

106511 


LIB 

CHI 


0210 

00254 

100110 


OCT 

100110 

RRL 8 

0211 

00255 

026243R 


JMP 

PUT! 
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0213* CONTINUATOR SECTION OF 2ND COUNTER 
0214* 

0215* THIS IS IDENTICAL TO COUNTER NUMBER 1 
0216* 


0217 

00256 

000000 

1,442 

NOP 


0218 

00257 

107712 


CLC 

CH2 # C 

0219 

00260 

07305 1 R 


STA 

SAVA2 

0220 

00261 

077052R 


STB 

SAVB2 

0221 

00262 

002400 


CLA 


0222 

00263 

001500 


ERA 


0223 

00264 

102201 


SQC 


0224 

00265 

002004 


INA 


0225 

00266 

073053R 


STA 

3AVE2 

0226 

00267 

063030R 


LDA 

UNIT 

0227 

00270 

002003 


SZA, 

R8S 

0228 

0027 1 

026317R 


JMP 

FAL2 

0229* 






0230 

00272 

037044R 


ISZ 

MINR2 

0231 

00273 

002001 


RSS 


0232 

00274 

026322R 


JMP 

REA02 

0233 

00275 

063075R 

G02 

LOA 

STC2 

0234 

00276 

072314R 


STA 

BUS2 

0235 

00277 

063033R 


LDA 

ENDT 

0236 

00300 

043044R 


ADA 

MI NR 2 

0237 

00301 

160000 


LOA 

0*1 

0238 

00302 

103100 


CLF 

0 

0239 

00303 

106712 


CLC 

CH2 

0240 

00304 

102112 


STF 

CH2 

0241 

0030 5 

102612 


OTA 

CH2 

0242 

00306 

063053R 

RET2 

LDA 

SAVE2 

0243 

00307 

103101 


CLO 


0 244 

00310 

000036 


SLA, 

EL A 

0 245 

0031 1 

102101 


STF 

1 

0246 

00312 

06305 1 R 


LDA 

SAVA2 

0247 

00313 

0670 5 2 R 


LOB 

SAVB2 

0248 

00314 

000000 

BUS2 

NOP 


0249 

00315 

102100 


STF 

0 

0250 

00316 

126256R 


JMP 

1,442,1 

0251* 






0252 

00317 

002400 

FAL2 

CLA 


0253 

00320 

0 7 2 3 1 4 R 


STA 

BUS2 

0254 

00321 

026306R 


JMP 

RET2 

02554 






0256 

00322 

104200 

READ2 

OCT 

104200 

0257 

00323 

00000 3 X 


OEF 

TIMEX 

0258 

00324 

104400 


OCT 

104400 

0259 

00325 

001064R 


DEF 

TEMP2 

0260 

00326 

063037R 


LDA 

MARK 

0261 

00327 

002003 


SZA, 

r RSS 

0262 

00330 

026426R 


JMP 

BCD2 

0263 

00331 

102512 


LI A 

CH2 

0264 

00332 

106512 


LIB 

CH2 

0265 

00333 

016672R 


JSB 

FLIP 

0266* 






0267 

00334 

073106R 


STA 

IN2 

0 268 

00335 

06304 1 R 


LDA 

MAJ2 

0269 

00336 

002004 


INA 
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0270 

00337 

002003 


8ZA 

t RSS 

0271 

00340 

026366R 


JMP 

D0NE2 

0272 

00341 

002021 


SSA 

r RSS 

0273 

00342 

02600 1 X 


JMP 

ABORT 

0274 

00343 

073041R 


STA 

MAJ2 

0275 

00344 

063106R 


LDA 

IN2 

0276 

00345 

143035R 


ADA 

ADDR2,I 

0277 

00346 

173035R 


STA 

ADDR2 1 1 

0278 

00347 

063035R 


LDA 

ADDR2 

0279 

00350 

043113R 


ADA 

■ B2 

0260 

00351 

07307 1 R 


STA 

FAR2 

0281 

00352 

104200 


OCT 

104200 

0282 

00353 

100000 


DEF 

I 

0283 

00354 

000040 


CLE 


0284 

00355 

043064R 


ADA 

TEMP2 

0285 

00356 

002040 


SEZ 


0286 

00357 

006004 


INS 


0287 

00360 

047065R 


ADB 

TEMP2+1 

0288 

00361 

104400 


OCT 

104400 

0289 

00362 

1 0 1 07 1 R 


DEF 

FAR2 1 1 

0290 

00363 

063116R 

SEN2 

LDA 

■ B«3 

0291 

00364 

073044R 


STA 

MINR2 

0292 

00365 

026275R 


JMP 

G02 

0293* 






0294 

00366 

063106R 

D0NE2 

LDA 

IN2 

0295 

00367 

143035R 


ADA 

ADDR2 , 1 

0296 

00370 

006400 


CLB 


0297 

00371 

100400 


OCT 

100400 

0298 

00372 

001110R 


DEF 

B3 

0299 

00373 

173035R 


STA 

ADDR2 , I 

0300 

00374 

03703SR 


ISZ 

ADDR2 

0301 

00375 

063073R 


LDA 

SIGN 

0302 

00376 

173035R 


STA 

ADDR2 # I 

0303 

00377 

037035R 


ISZ 

ADDR2 

0304 

00400 

104200 


OCT 

104200 

0305 

00401 

101035R 


DEF 

ADDR2 r I 

0306 

00402 

000040 


CLE 


0307 

00403 

005500 


ERB 


0308 

00404 

001500 


ERA 


0309 

00405 

104400 


OCT 

104400 

0310 

00406 

101035R 


DEF 

ADDR2 i I 

0311 

00407 

037035R 


ISZ i 

IDDR2 

0312 

00410 

037035R 


ISZ 

A0DR2 

0313* 






0314 

00411 

002400 

FIN2 

CLA 


0315 

00412 

07304 1 R 


STA 

MAJ2 

0316 

00413 

063040R 


LDA 

MAJ1 

0317 

00414 

067042R 


LDB 

MAJ3 

0318 

00415 

002003 


SZA 

t RSS 

0319 

00416 

006002 


SZB 


0320 

00417 

026317R 


JMP 

FAL2 

0321 

00420 

104200 


OCT 

104200 

0322 

00421 

001064R 


DEF 

TEMP2 

0323 

00422 

016716R 


JSB 

TIMCK 

0324 

00423 

000317R 


DEF 

FAL2 

0325 

00424 

00 1 05 1 R 


DEF 

8AVA2 

0326 

00425 

0 0 it)' 2 5 6 R 


DEF 

1.442 
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0327* 


0328 

00426 

0329 

00427 

0330 

00430 

0331 

00431 

0332 

00432 

0333 

00433 

0334 

00434 

0335 

00435 

0336 

00436 

0337 

00437 

0338 

00440 

0339 

00441 

0340 

00442 

0341 

00443 

0342 

00444 

0343 

00445 

0344 

00446 

0345 

00447 

0346 

00450 

0347* 


0348 

00451 

0349 

00452 

0350 

00453 

0351 

00454 

0352 

00455 

0353 

00456 

0354 

00457 

0355 

00460 

0356 

00461 

0357 

00462 

0358 

00463 


102512 BCD2 
073106R 
067117R 
077103R 
006400 
001600 
002200 
005600 
001200 
002021 
047073R 
063106R 
001727 
073106R 
013120R 
0 4 3 1 1 5 R 
001727 
040001 
067106R 

173035R PUT2 
037035R 
037103R 
002001 
02641 1R 
060001 
001727 
013121R 
106512 
100110 
026451 R 


LI A CH2 
8TA IN2 
LOB «B-4 
8TB CNT2 
CLB 
ELA 
CHE 
ELB 
RAL 

SSA,RSS 
ADB SIGN 
LDA IN2 

alf.alf 

STA IN2 
AND «B37 
AOA «B2 
ALF, ALF 
ADA 1 
LOB 1N2 

STA ADDR2,I 
ISZ ADDR2 
ISZ CNT2 
RSS 

JMP FIN2 
LDA 1 
ALF t ALF 
ANO ■ B377 
LIB CH2 
OCT 100110 
JMP PUT2 
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0360* CONTXNUATOR SECTION OF 3RD COUNTER 
0361* 

0362* THIS IS IDENTICAL TO COUNTER NUMBER 1 


0363* 

0364 

00464 

000000 

1,443 

NOP 


036S 

00465 

107713 


CLC 

CH3,C 

0366 

00466 

073054R 


STA 

SAVA3 

0367 

00467 

077055R 


STB 

SAVB3 

0366 

00470 

002400 


CLA 


0369 

00471 

001500 


ERA 


0370 

00472 

102201 


SOC 


0371 

00473 

002004 


INA 


0372 

00474 

073056R 


STA 

SAVE3 

0373 

00475 

063030R 


LOA 

UNIT 

0374 

00476 

002003 


8ZA, 

RSS 

0375 

00477 

026525R 


JMP 

FAL3 

0376* 

0377 

00500 

037045R 


isz 

MINR3 

0378 

00501 

002001 


RSS 


0379 

00502 

026530R 

JMP READ3 

0380 

00503 

063076R 

G03 

LOA 

STC3 

0381 

00504 

072522R 


STA 

BUS3 

0382 

00505 

063033R 


LDA 

ENDT 

0383 

00506 

043045R 


ADA 

MI NR 3 

0384 

00507 

160000 


LOA 

0,1 

0365 

00510 

103100 


CLF 

0 

0386 

00511 

106713 


CLC 

CH3 

0387 

00512 

102113 


STF 

CH3 

0388 

00513 

102613 


OTA 

CH3 

0389 

00514 

063056R 

RETS 

LOA 

SAVES 

0390 

00515 

103101 


CLG 


0391 

00516 

000036 


SLA, 

ELA 

0392 

00517 

102101 


STF 

1 

0393 

00520 

063054R 


LDA 

SAVA3 

0394 

00521 

067055R 


LDB 

SAVB3 

0395 

00522 

000000 

BUS3 

NOP 


0396 

00523 

102100 


STF 

0 

0397 

0398* 

00524 

126464R 


JMP 

1.443,1 

0399 

00525 

002400 

FAL3 

CLA 


0400 

00526 

072522R 


STA 

BUSS 

0401 

00527 

026514R 


JMP 

RET3 

0402* 

0403 

00530 

104200 

READS 

OCT 

104200 

0404 

00531 

000003X 

j 

DEF 

TIMEX 

0405 

00532 

104400 


OCT 

104400 

0406 

00533 

001066R 


DEF 

TEMPS 

0407 

00534 

063037R 


LDA 

MARK 

0408 

00535 

002003 


8Z A i 

t RSS 

0409 

00536 

026634R 


JMP 

BCD3 

0410 

00537 

102513 


LIA 

CHS 

0411 

00540 

106513 


LIB 

CH3 

0412 

00541 

016672R 


JSB 

FLIP 

0413* 

0414 

00542 

073107R 


STA 

INS 

0415 

00543 

063042R 


LOA 

MAJ3 

0416 

00544 

002004 


INA 
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0417 00545 002003 

0418 00546 026574R 

0419 00547 002021 

0420 00550 02600 1 X 

0421 00551 073042R 

0422 00552 063107R 

0423 00553 143036R 

0424 03554 173036R 

0425 03555 063036R 

0426 00556 043115R 

0427 00557 073072R 

0428 00560 104200 

0429 00561 100000 

0430 00562 000040 

0431 00563 043066R 

0432 00564 002040 

0433 00565 006004 

0434 00566 047067R 

0435 00567 104400 

0436 00570 101072R 

0437 00571 063116R 

0438 00572 073045R 

0439 00573 026503R 
0440* 

0441 00574 063107R 

0442 00575 143036R 

0443 00576 006400 

0444 00577 100400 

0445 03600 00U10R 

0446 00601 173036R 

0447 00602 037036R 

0448 03603 063073R 

0449 00604 173036R 

0450 00605 037036R 

0451 03636 104200 

0452 00607 101036R 

0453 00610 000040 

0454 00611 005500 

0455 00612 001500 

0456 00613 104400 

0457 00614 101036R 

0458 00615 037036R 

0459 00616 037036R 
0460* 

0461 00617 002400 

0462 00620 073042R 

0463 00621 063040R 

0464 00622 067041R 

0465 00623 002003 

0466 00624 006002 

0467 00625 026525R 

0468 00626 104200 

0469 00627 001066R 

0470 00630 B16716R 

0471 00631 000525R 

0472 00632 001054R 

0473 00633 000464R 

5 - 


SZA, RSS 
JMP D0NE3 
8SA| RSS 
JMP ABORT 
STA HAJ3 
LDA IN3 
ADA ADDR3 , X 
STA ADDR3 , I 
LDA ADDR3 
ADA *52 
STA FAR 3 
OCT 104200 
OEF 0,1 
CLE 

ADA TEMPS 
SEZ 
INB 

AOB TEMPS* 1 
OCT 104400 
DEF F AR3 , I 

SEN3 LDA *B«3 
STA MINR3 
JMP G03 

DONE3 LDA IN3 

ADA ADDR3 , I 
CLB 

OCT 100400 
DEF B3 
STA ADDR3.I 
ISZ ADDR3 
LDA SIGN 
STA ADDR3, I 
ISZ ADDR3 
OCT 104200 
DEF ADDR3 , 1 
CLE 
ER6 
ERA 

OCT 104400 
DEF ADDR3, I 
ISZ ADDR3 
ISZ A0DR3 

FINS CLA 

STA MAJ3 
LDA MAJ1 
LDB MAJ2 
SZA, RSS 
SZB 

JMP FAL3 
OCT 104200 
DEF TEMP3 
JSB TIMCK 
OEF FAL3 
DEF SAVA3 
DEF 1.443 
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0474* 

0475 00634 108013 

0476 00635 073107R 

0477 00636 067U7R 

0478 00637 077104R 

0479 00640 006400 

0480 00641 001600 

0481 00642 002200 

0482 00643 009600 

0483 00644 001200 

0484 00645 002021 

0485 00646 047073R 

0486 00647 063107R 

0487 00650 001727 

0488 00651 073107R 

0489 00652 013120R 

0490 

0491 

0492 

0493 
0494* 

0495 

0496 

0497 

0498 

0499 

0500 

0501 00665 001727 

0502 00666 013121R 

0503 00667 106513 

0504 00670 100110 

0505 00671 026657R 


BCDS LX A CHS 
8TA INS 
LOB ■B"4 
8TB CNT3 
CLB 
ELA 
CHE 
elb 
RAL 

88A ( RS8 
AOB SIGN 
LOA XN3 

alf#alf 

STA IN3 
AND *637 
ADA *62 
alf,alf 

ADA 1 
LDB IN3 

STA ADDR3,I 
I SZ A DDR 3 
ISZ CNT3 
R8S 

JMP FIN3 
LDA 1 
ALF,ALF 
AND *B377 
LIB CHS 
OCT 100110 
JHP PUTS 


00653 0431 15R 

00654 001727 

00655 040001 

00656 067107R 

00657 173036R PUTS 

00660 037036R 

00661 037104R 

00662 002001 

00663 026617R 

00664 060001 
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0507* 

SUBROUTINES *** 




0508 

00672 

000000 

FLIP 

NOP 



0509 

00673 

103100 


CLF 

0 


0510 

00674 

073027W 


STA 

TEMP 

SAVE 1ST WORD OF READ 

0511 

00675 

001727 


ALF 

, alf 


0512 

00676 

013120R 


AND 

*637 

MASK EXPONENT 

0513 

00677 

043122R 


ADA 

■ 0*8 

SUBTRACT 8 

0514 

00700 

0731 12R 


STA 

TCNT 

SAVE AS SHIFT COUNTER 

0515 

00701 

002021 


SSA 

, RSS 


0516 

00702 

026713R 


JMP 

NOSHT 


0517 

00703 

063027R 


LDA 

TEMP 


0518 

00704 

013121R 


AND 

■ B377 


0519 

00705 

100104 


OCT 

100104 

RRL 4 

0520 

00706 

037112R 


ISZ 

TCNT 

DONE SHIFTING 1 

0521 

00707 

026705R 


JMP 

*-2 

NO* SHIFT ANOTHER DIGIT 

0 522 

00710 

016002X 


JSB 

BCDBI 

CONVERT TO BINARY 

0523 

00711 

102100 

OVER 

STF 

3 


0524 

00712 

126672R 


JMP 

FLIP, I 


0525* 







0526 

00713 

063027R 

NOSHT 

LDA 

TEMP 


0527 

00714 

013121R 


AND 

■ 0377 


0528 

00715 

026710R 


JMP 

OVER-1 


0529* 







0530 

00716 

000000 

TIMCK 

NOP 



0531 

00717 

0371 1 1R 


ISZ 

DONE 


0532 

00720 

026730R 


JMP 

NOT 

IF READINGS NOT OONE,CK TIME 

0533 

00721 

002400 

CLR 

CLA 


CLEAR BUSY FLAG 

0534 

00722 

073030R 


STA 

UNIT 


0535 

00723 

063037R 


LDA 

MARK 

PUT TOTAL READINGS AWAY 

0536 

00724 

04311 1 R 


ADA 

DONE 

' . . . . 

0537 

00725 

0731 1 1R 


STA 

DONE 


0538 

00726 

1S2716R 


LDA 

TIMCK, I 


0539 

00727 

124000 


JMP 

0.1 

RETURN TO CONTINUATOR 

0540* 







0541 

00730 

104400 

NOT 

OCT 

104400 

DST TIME MARK 

0542 

00731 

001077R 


OEF 

TIMED 


0543 

00732 

0667 1 6R 


LDB 

TIMCK 

SAVE RETURN ADDRESS 

0544 

00733 

006004 


INB 



0545 

00734 

160001 


LDA 

1.1 

WORKING REGISTER ADDRESS 

0546 

00735 

006004 


INB 



0547 

00736 

164001 


LDB 

l.i 

INTERRUPT ADDRESS 

0548 

00737 

164001 


LDB 

i,i 


0549 

00740 

07 7 1 0 1 R 


STB 

BACK 


0550 

00741 

164000 


LDB 

0,1 

SAVE WORKING REGISTERS 

0551 

00742 

077057R 


STB 

SAVA 


0552 

00743 

002004 


INA 



0553 

00744 

164000 


LDB 

0,1 


0554 

00745 

077060P 


STB 

SAVB 


0555 

00746 

002004 


INA 



0556 

00747 

164000 


LDB 

0.1 


0557 

00750 

07706 1 R 


STB 

SAVE 


0558 

00751 

104200 


OCT 

104200 

OLD TIME MARK 

0559 

00 752 

001077R 


DEF 

TIMED 


0560 

00753 

003000 


C M A 



0561 

007 54 

007100 


CMB, 

,cle 

MAKE NEGATIVE 

0562 

00755 

002004 


INA 



0563 

00756 

002040 


SEZ 







5 
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0564 

00757 

006004 


INS 


0565 

00760 

000040 


CLE 


0566 

00761 

042005X 


ADA MAXT 

ADO MAX TIME 

0567 

00762 

002040 


SEZ 


0568 

00763 

006004 


INB 


0569 

00764 

046006X 


ADB MAXT 1 


0570 

00785 

006020 


S8B 


0571 

00766 

02672 1 R 


JMP CLR 

TIME UP, CLEAR DRIVER 

0572 

00767 

016777R 


JSB CALL 

SETUP ORIVERS FOR NEW READ 

0573 

00770 

06306 1 R 


LDA SAVE 

RESTORE REGISTERS 

0574 

00771 

103101 


CLO 


0575 

00772 

000036 


SLA i EL A 


0576 

00773 

102101 


STF 1 


0577 

00774 

063057R 


LDA SAVA 


0578 

00775 

067060R 


LDB SAVB 


0579 

00776 

1 27 10 1 R 


JMP BACK, I 


0580* 






0581 

00777 

000000 

call 

NOP 


0582 

01000 

063U6R 


LDA «B-3 

SET FOR 3 READINGS 

0583 

01001 

086004X 


LDB LINKS 


0584 

01002 

007004 


CMB, INB 


0585 

01003 

073040R 


8TA MAJ1 


0586 

01004 

006007 


INB, SZB, RSS 

START DRIVERS OF COUNTERS 

0587 

01005 

027012R 


JMP CALL 1 

TO BE USED IN THIS RANGE 

0588 

01006 

0730 4 1 R 


STA MAJ2 


0589 

01007 

006007 


INB, SZB, RSS 


0 590 

01010 

027012R 


JMP CALL1 


0 591 

01011 

073042R 


STA MAJ3 


0 592 

01012 

063117R 

CALL! 

LOA *B-4 


0593 

01013 

073043R 


STA MINR1 


0594 

01014 

073044R 


STA MINR2 


0595 

01015 

073045R 


STA MXNR3 


0596 

01016 

066004X 


LOB LINKS 


0597 

01017 

007004 


CMB, INB 


0598 

01020 

016050R 


J8B 1,441 


0599 

01021 

006007 


INB, SZB, RSS 


0600 

01022 

126777R 


JMP CALL, I 


0601 

01023 

016256R 


JSB 1,442 


0602 

01024 

006006 


INB, SZB 


0603 

01025 

016464R 


JSB 1,443 


0604 

01026 

126777R 


JMP CALL, I 


0605* 






0606* 

CONSTANTS AND 

WORKING STORAGE 


0607* 






0608 

01027 

000000 

TEMP 

NOP 


0609 

01030 

000000 

UNIT 

OCT 0,10,31 

WORDS TO BE SENT TO COUNTER 


01031 

000010 





01032 

000031 




0610 

01033 

001033R 

ENOT 

DEF * 

ENO OF 3 WORD TA&LE 

0611 

01034 

000000 

AODR1 

NOP 


0612 

01035 

000000 

AD0R2 

NOP 


0613 

01036 

000000 

AP0R3 

NOP 


0614 

01037 

000000 

MARK 

NOP 

BCD OR INTEGER MARK 

0615 

01040 

000000 

MAJ1 

NOP 


0616 

01041 

000000 

MAJ2 

NOP 


0617 

01042 

000000 

MAJ3 

NOP 


0618 

01043 

000000 

MINR1 

NOP 
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0b i 9 

01044 

000000 

MINRS 

NOP 


0620 

01045 

000000 

MINR3 

NOP 


0621 

01046 

000000 

SAVA 1 

NOP 


0622 

01047 

000000 

SAVB1 

NOP 


0623 

01050 

000000 

SAVE 1 

NOP 


0624 

01051 

000000 

SAVA2 

NOP 


0625 

01052 

000000 

SAV02 

NOP 


0626 

01053 

000000 

SAVE2 

NOP 


0627 

01054 

000000 

SAVA3 

NOP 


0626 

01055 

000000 

3AVB3 

NOP 


0629 

01056 

000000 

SAVE3 

NOP 


0630 

01057 

000000 

SAVA 

NOP 


0631 

01060 

000000 

SAVB 

NOP 


0632 

01061 

000000 

SAVE 

NOP 


0633 

01062 

000000 

TEMPI 

BSS 

2 

0634 

01064 

000000 

TF.HP2 

BSS 

2 

0635 

01066 

000000 

TEMP3 

BSS 

2 

0636 

01070 

000000 

FAR1 

NOP 


0637 

01071 

000000 

FAR2 

NOP 


0638 

01072 

000000 

FAR3 

NOP 


0639 

01073 

100000 

SIGN 

OCT 

100000 

0640 

01074 

103711 

STC1 

STC 

CHI, C 

0641 

01075 

103712 

STC2 

8TC 

CH2,C 

0642 

01076 

103713 

STC3 

STC 

CH3 , C 

0643 

01077 

000000 

TIMED 

BSS 

2 

0644 

01101 

000000 

BACK 

NOP 


0645 

01102 

000000 

CNT 1 

NOP 


0646 

01103 

000000 

CNT2 

NOP 


0647 

01104 

000000 

CNT3 

NOP 


0648 

01105 

000000 

INI 

NOP 


0649 

01106 

000000 

IN2 

NOP 


0650 

01107 

000000 

IN3 

NOP 


0651 

01110 

000003 

B3 

OCT 

3 

0652 

01111 

000000 

DONE 

NOP 


0653 

01112 

000000 

TCNT 

NOP 


0654 

00011 


CHI 

EQU 

UB 

0655 

00012 


CH2 

EQU 

12B 

0656 

00013 


CH3 

EQU 

13B 


01113 

070000 





01114 

000643 





01115 

000002 





01116 

177775 





01117 

177774 





01120 

000037 





01121 

000377 





01122 

177770 




0657 




end 
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ASMB,R,8,L 

NAM BTD 
ENT BTD 
EXT CLEAR 


0001 


0003 

00000 

000 4 


0005 


0006* 


0007 

00000 

0008 

00001 

0009 

00002 

0010 

00003 

0011 

00004 

0012 

00005 

0013 

00006 

0014 

00007 

0015 

00010 

0016 

00011 

0017 

00012 

0018 

00013 

0019 

00014 

0020 

00015 

0021 

00016 

0022* 


0023 

00017 

0024 

00020 

0025 

00021 

0026 

00022 

0027 

00023 

0028 

00024 

0029 

00025 

0 0 30 * 


0031 

00026 

0032 

00027 

0033 

00030 

0034 

00031 

0035 

00032 

0036 

00033 

0037* 


0038 

00034 

0039 

00035 

0040 

00036 

0041 

00037 

0042 

00040 

0043 

00041 

0044* 


0045 

00042 

0046 

00043 

0047 

000 44 

0048 

00045 

0049 

00046 

0050 

00047 

0051 

00050 

0052 

00051 

0053 

00052 

0054 

00053 

0055 

00054 

0056 

00055 

0057 

00056 

0058* 



000000 BTD 
1 62000R 
036000R 
160000 
072107R 
072U0R 
166000R 
076 1 1 1 R 
036000R 
0621 16R 
0 1 600 1 X 
036 1 1 1 R 
03611 1R 
072112R 
0721 15R 

062117R 

072113R 

062107R 

002003 

126000R 

002020 

036115R 

066110R LOOPi 
0461 1 7R 
0761 10R 
0361 12R 
006020 
026072R 

002400 
0721 15R 
062120R ADI 
016100R 
0361 13R 
026026R 

062117R 

072113R 

002004 

072114R 

062112R 

006400 

0461 21 R ADD 

050001 

026062R 

0361 14R 

026050R 

052122R 

026065R 


NOP 

LDA BTD, I 
I3Z BTD 
LDA 0,1 
STA TEMP 
8TA NUM 
LOB BTD, I 
STB BUF 
ISZ BTD 
LDA 04 
JSB CLEAR 
ISZ BUF 
ISZ BUF 
STA CNTR3 
STA MARK 

LDA DM10 
STA CNTR4 
LDA TEMP 
SZA, RSS 
JMP BTD, I 
SSA 

ISZ MARK 

LDB NUM 
ADB DM10 
STB NUM 
ISZ CNTR3 

JMP DONE 

CLA 

STA MARK 
LDA B6 
JSB ADDIT 
ISZ CNTR4 
JMP LOOPI 

LDA DM10 
STA CNTR4 
INA 

STA CNTR5 
LDA CNTR3 
CLB 

ADB 0100 
CPA 1 
JMP OUT 
ISZ CNTR5 
JMP ADD 
CPA D1000 
JMP OUT 2 
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0059 

00057 

062123R 


LDA 

B 1 40 

0060 

00060 

016100R 


JSB 

ADOIT 

0061 

00061 

026026R 


JMP 

LOOP 1 

0062* 






0063 

00062 

0 6 2 1 2 4 R 

OUT 

LDA 

B3140 

0064 

00063 

016100R 


JSB 

AODIT 

0065 

00064 

026026R 


JMP 

LOOP 1 

0066* 






0067 

00065 

062125R 

OUT 2 

LDA 

6631 4 

0068 

00066 

0161 00 R 


JSB 

ADOIT 

0069 

00067 

006400 


CLB 


0070 

00070 

0761 12R 


STB 

CNTR3 

0071 

00071 

026026R 


JMP 

LOOP 1 

0072* 






0073 

00072 

066 1 1 5R 

DONE 

LDB 

MARK 

0074 

00073 

006002 


SZB 


0075 

00074 

026036R 


JMP 

ADI 

0076 

00075 

0361 HR 


isz 

BUF 

0077 

00076 

1 72 11 1 R 


STA 

BUF, I 

0078 

00077 

126000R 


JMP 

BTO, I 

0079* 






0080 

00100 

000000 

ADOIT 

NOP 


0081 

00101 

000040 


CLE 


0082 

00102 

042107R 


ADA 

TEMP 

0083 

00103 

002040 


SEZ 


0084 

00104 

1361 1 1R 


ISZ 

BUF, I 

0085 

00105 

072107R 


STA 

TEMP 

0086 

00106 

126100R 


JMP 

AODIT, I 

0087* 






0088 

00107 

000000 

TEMP 

NOP 


0089 

00110 

000000 

NUM 

NOP 


0090 

00111 

000000 

BUF 

NOP 


0091 

00112 

000000 

CNTR3 

NOP 


0092 

00113 

000000 

CNTR4 

NOP 


0093 

00114 

000000 

CNTR5 

NOP 


0094 

00115 

000000 

MARK 

NOP 


0095 

00116 

000004 

04 

DEC 

4 

0096 

00117 

177766 

DM10 

DEC 

• 10 

0097 

00120 

000006 

86 

OCT 

6 

0098 

00121 

000144 

0100 

DEC 

100 

0099 

00122 

001750 

D1000 

DEC 

1000 

0100 

00123 

000140 

B 1 40 

OCT 

140 

0101 

00124 

003140 

B 3 1 4 0 

OCT 

3140 

0102 

00125 

063140 

86314 

OCT 

63140 

0103 




END 


** NO 

i ERRORS 1 AMD ASMB, 251 17- 

4025 1 B 
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0C3O l 



ASMB, 

R.B.l 



0003 

00000 



NAM 

DOTA 


0004 




ENT 

DOTA 


0005* 







0006 

00000 

000000 

DOTA 

NOP 



0007 

00001 

1S2000R 


LDA 

DOTA, I 

ADDRESS OF NUMBER 

0008 

00002 

036000R 


isz 

ODT A 


0009 

0000 3 

072220R 


STA 

TEMP 


0010 

00004 

162000R 


LDA 

DDT A . I 

ADDRESS OF BUFFER 

0011 

00005 

036000R 


ISZ 

DOTA 


0012 

00006 

072222R 


STA 

AODR 


0013 

00007 

002400 


CLA 


initialize EXPONENT 

0014 

00010 

072223R 


STA 

EXP 


0015* 







0016 

00011 

162220R 


LDA 

TEMP, I 

FETCH 1ST WORD OF DEC NO, 

0017 

00012 

036220R 


xsz 

TEMP 


0018 

00013 

066250R 


LDB 

POSTV 


0019 

00014 

000010 


SLA 



0020 

00015 

06625 1 R 


LOB 

MINUS 

PUT SIGN OF NO, IN BUFFER 

0021 

00016 

176222R 


STB 

ADDR , I 


0022* 







0023 

00017 

000066 


CLE, 

ELA 

PUT SIGN OF EXP IN E 

00 2 4 

00020 

001327 


RAR, 

ALF 

POSITION EXP 

0025 

00021 

001700 


ALF 



0026 

00022 

012236R 


AND 

B377 

MASK 

0027 

00023 

002003 


SZA, 

RSS 

0 EXP ? 

0028 

00024 

026027R 


JMP 

SUB 

YESI 

0029 

00025 

002041 


SEZ , 

RSS 

PLUS EXP 7 

0030 

00026 

026105R 


JMP 

PLUS 

YESI 

0031* 







0032 

00027 

042235R 

SUB 

ADA 

M12 

SUBTRACT 12 

0033 

00030 

002003 


SZA. 

RSS 

EXP * 12 ? 

0034 

00031 

026034R 


JMP 

DOWN 

YES* 

0035 

00032 

002021 


SSA. 

RSS 

EXP LARGER THAN 12 7 

0036 

00033 

026 1 2 l R 


JMP 

SHIFT 

YESI 

0037* 







0038 

00034 

04223 1R 

DOWN 

ADA 

Ml 

INDEX FOR DEC, POINT 

0039 

00035 

072224R 


STA 

IC 


0040 

00036 

003400 


CCA 



0041 

00037 

072225R 


STA 

BLC 

INDEX FOR LS OR MS STORAGE 

0042* 







0043 

00040 

01614 4 R 


JSB 

STUFF 

PUT 1ST 4 DIGITS IN BUFFER 

0044 

00041 

016144R 


JSB 

STUFF 

2ND 4 DIGITS 

0045 

00042 

016144R 


JSB 

STUFF 

3RD 4 DIGITS 

0046 

00043 

036224R 


ISZ 

IC 

HAS DEC. PT, BEEN PLACED 7 

0047 

00044 

026052R 


JMP 

OUT 

YESI 

0048 

00045 

162222R 


LDA 

ADDR , X 

NO 1 PUT IN BUFFER 

0049 

00046 

012240R 


AND 

B1774 


0050 

00047 

042245R 


ADA 

B56 


0051 

000 50 

172222R 


STA 

AODR, I 


0052 

00051 

036222R 


ISZ 

ADDR 


0053* 







0054 

00052 

062223R 

OUT 

l»DA 

EXP 


0055 

00053 

002003 


SZA 

, RSS 

0 EXP. 7 

0056 

00054 

026100R 


JMP 

NOEXP 

YESI 

0057 

00055 

000066 


CLE 

,EU 

SIGN OF EXP IN E 

0058 

00056 

001300 


RAR 




5-142 


PAGE. 0003 #01 * DECIMAL. TO ASCII * 2JAN73 


0059 

00057 

066247R 


LOB 

EPLUS 


0060 

00060 

002040 


SEZ 



0061 

00061 

066246R 


LOB 

ENEG 


0062 

00062 

176222R 


8TB 

ADDR , I 

PUT IN BUFFER 

0063 

0064* 

00063 

036222R 


I8Z 

ADDR 


0065 

00064 

070001 


STA 

1 

CONVERT EXP TO BCD 

0066 

00065 

0 46235 R 


ADB 

M12 


0067 

00066 

006020 


8 SB 



0068 

00067 

026072R 


JMP 

*♦3 


0069 

00070 

042230R 


ADA 

.6 


0070 

00071 

026065R 


JMP 

*•4 


0071* 

0072 

00072 

001727 


ALF, 

ALF 

CONVERT TO ASCII 

0073 

00073 

066232R 


LDB 

M2 • 


0074 

00074 

076226R 


STB 

CTR 


0075 

00075 

076225R 


STB 

BLC 


0076 

00076 

016153R 


JSB 

PUT 


0077 

0078* 

00077 

126000R 


JMP 

DDTA , I 

RETURN 

0079 

00100 

062252R 

NOEXP 

LDA 

BLANK 

PUT BLANKS IN BUFFER 

0080 

00101 

172222R 


STA 

ADDR, I 


0081 

00102 

036222R 


ISZ 

ADDR 


0082 

00103 

172222R 


STA 

ADDR, I 


0083 

00104 

126000R 


JMP 

DDTA, I 


0084* 

0085 

00105 

042233R 

PLUS 

ADA 

M3 

SUBTRACT 3 FROM EXP 

0086 

00106 

036223R 


ISZ 

EXP 

ADD 1 TO MARK 

0087 

00107 

002002 


SZA 


IF 0 OR MULTIPLE OF 3 FOUND 

0088 

00110 

002020 


SSA 



0089 

00111 

002001 


RSS 



0090 

00112 

026105R 


JMP 

PLUS 

IF NOT DO IT AGAIN 

0091* 

0092 

00113 

003004 


CMA, 

INA 

MAKE REMAINDER ♦ 

0093 

00114 

066223R 


LDB 

EXP 

MULTIPLY MARK BY 3 

0094 

00115 

005000 


BLS 



0095 

00116 

046223R 


ADB 

EXP 


0096 

00117 

076223R 


STB 

EXP 

SAVE AS EXP. 

0097 

00120 

026027R 


JMP 

SUB 

WORK ON DIGITS 

0098* 

0099 

00121 

04224 1R 

SHIFT 

ADA 

.12 

RESTORE EXP, 

0100 

00122 

042233R 


ADA 

M3 

FIND MULTIPLE OF 3 

0101 

00123 

036223R 


ISZ 

EXP 


0102 

00124 

07222 1 R 


STA 

TEMPI 

SAVE REMAINDER 

0103 

00125 

002003 


SZA, 

RSS 

ANY REMAINDER ? 

0104 

00126 

026134R 


JMP 

OVER 

NO 1 

0105 

00127 

002021 


SSA, 

RSS 

REMAINDER STILL ♦ 

0106 

00130 

026122R 


JMP 

SHIFTM 

YESl SUBTRACT AGAIN 

0107* 

0108 

00131 

042 227 R 


ADA 

.3 

NO 1 ADD 3 TO REMAINDER 

0109 

00132 

07 222 1 R 


STA 

TEMPI 

AS DEC PT. 

0110 

00133 

003400 


CCA 


SUBTRACT 1 FROM MULTIPLE 

0111 

00134 

042223R 

OVER 

ADA 

EXP 


0112 

00135 

070001 


STA 

1 

multiply BY 3 

0113 

00136 

001003 


ALS 



0114 

00137 

040001 


ADA 

1 


0115 

00140 

032244R 


IQR 

B100K 

ADD - SIGN v. 
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WAGE 0004 <*01 * DECIMAL TO 


0116 

00141 

072223R 


STA 

EXP 

0117 

00142 

06222 1 R 


LDA 

TEMPI 

0118 

00143 

026027R 


JMP 

SUB 

0119* 






0120 

00144 

000000 

STUFF 

NOP 


0121 

00145 

062234R 


LDA 

M4 

0122 

00146 

072226R 


STA 

CTR 

0123 

00147 

1 62220R 


LOA 

TEMP, I 

0124 

00150 

036220R 


ISZ 

TEMP 

0125 

00151 

016153R 


JSB 

PUT 

0126 

00152 

126144R 


JMP 

STUFF, I 

0127* 






0128 

00153 

000000 

PUT 

NOP 


0129 

00154 

07222 1 R 


STA 

TEMPI 

0130 

00155 

06622 1 R 

LOOP 

LDB 

TEMPI 

0131 

00156 

036224R 


ISZ 

IC 

0132 

00157 

026165R 


JMP 

MASK 1 

0133 

00160 

003400 


CCA 


0134 

00161 

042226R 


ADA 

CTR 

0135 

00162 

072226R 


STA 

CTR 

0136 

00163 

062243R 


LDA 

B27K 

0137 

00164 

026174R 


JMP 

CONT 

0138* 






0139 

00165 

062237R 

MASK 1 

LOA 

B170K 

0140 

00166 

010001 


AND 

1 

0141 

00167 

005700 


BLF 


0142 

00170 

07622 1 R 


STB 

TEMPI 

0143 

00171 

001323 


RAR, 

RAR 

0144 

00172 

001323 


RAR, 

RAR 

0145 

00173 

042242R 


ADA 

B33K 

0146* 






0147 

00174 

036225R 

CONT 

ISZ 

BLC 

0148 

00175 

026212R 


JMP 

MSPT 

0149 

00176 

001727 


ALF, 

ALF 

0150 

00177 

070001 


STA 

1 

0151 

00200 

162222R 


LDA 

ADDR, I 

0152 

00201 

012240R 


AND 

B 1 77 4 

0153 

00202 

040001 


AOA 

1 

0154 

00203 

172222R 


STA 

ADDR, I 

0155 

00204 

036222R 


ISZ 

ADOR 

0156 

00205 

062232R 


LDA 

M2 

0157 

00206 

072225R 


STA 

BLC 

0158* 






0159 

00207 

036226R 

CHK 

ISZ 

CTR 

0160 

00210 

0 2 6 1 5 5 R 


JMP 

LOOP 

0161 

0021 1 

126153R 


JMP 

PUT, I 

0162* 






0163 

00212 

070001 

MSPT 

STA 

1 

0164 

00213 

162222R 


LOA 

ADOR, I 

0165 

00214 

012236R 


AND 

B377 

0166 

00215 

040001 


AOA 

1 

0167 

00216 

172222R 


STA 

ADOR, I 

0168 

00217 

026207 R 


JMP 

CHK 

0169* 






0170 

00220 

000000 

TEMP 

NOP 


0171 

00221 

000000 

TEMPI 

NOP 


0172 

00222 

(fl 0 0 PT0 0 

ADDR 

NOP 



SAVE AS EXP, 

FETCH REMAINDER AND 
WORK ON DIGITS 


FETCH DIGITS 
PUT THEM AWAY 


FETCH BCD DIGITS 
PLACE DEC, PT T 
NO I 

YESI CORRECT DIGIT COUNTER 


BCD MASK 

ISOLATE MS DIGIT 
SHIFT BCO FOR NEXT STEP 

POSITION TO MS ASCII CHARACTER 

ADD ASCII CONSTANT 

CHAR TO MS BUFFER 1 
YESI 

NO! PUT IN LS PART 


RESTORE COUNTER 


FINISHED t 

NO I 

YESI 


5-144 


PAGE 0*05 #01 * DECIMAL TO ASCII * 2JAN75 


0173 

00223 

000000 

EXP 

NOP 


0174 

00224 

000000 

IC 

NOP 


0175 

00225 

000000 

BLC 

NOP 


0176 

00226 

000000 

CTR 

NOP 


0177 

00227 

000003 

.3 

OCT 

3 

0178 

00230 

000006 

.6 

OCT 

6 

0179 

00231 

177777 

Ml 

DEC 

•1 

0180 

00232 

177776 

M2 

DEC 

-2 

0181 

00233 

177775 

M3 

DEC 

• 3 

0182 

00234 

177774 

M4 

DEC 

• 4 

0183 

00235 

177764 

M12 

DEC 

-12 

0184 

00236 

000377 

8377 

OCT 

377 

0185 

00237 

170000 

B170K 

OCT 

1 7C1000 

0186 

00240 

177400 

B 1 7 7 4 

OCT 

177400 

0187 

00241 

000014 

.12 

DEC 

12 

0188 

00242 

030000 

B30K 

OCT 

30000 

0189 

00243 

027000 

B27K 

OCT 

27000 

0190 

00244 

100000 

B100K 

OCT 

100000 

0191 

00245 

000056 

B56 

OCT 

56 

0192 

00246 

042455 

ENEG 

ASC 

1 * E- 

0193 

00247 

042453 

EPLUS 

A SC 

l#E- 

0194 

00250 

025440 

POSTV 

ASC 

1»* 

0195 

00251 

026440 

MINUS 

ASC 

1 r • 

0196 

00252 

020040 

blank 

ASC 

1# 

0197 




END 


** 1 

MO ERRORS 1 AMO 

ASMBf 25117> 

• 4025 1 B 
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VOLUME I. CDA SYSTEM MANUAL 



RANGE RATE ROUTINE 


P '• G c W (•*• 2 it 1 1 


* RAUGt KATE ROUT ih£ * 


0001 ASMB,R,B,L 

0.003 fritf.MPP NAM HDOT 


000 6 
0 vs Ci 5 
000 0 
0 0 P 7 

P i* to 8 


ENT R P 0 T , N 5 C » N h T l , N 5 T 2 , A D J U T 
EnT RRADR r N5T5A 

EXT COA, TARSI ,TARS2, DONE, OMUL# DADD 
EXT .35F0,DTB1 ,BTD,DADD,N.VAL,DDIV 


* * ; 


* * A 


0 to 0 9 * 


001V*** APR 1 6, ls6/6 
0011* 

PP12* kANGfe R A T t ROUTINE 

0013* CAUL: UOB LINK 0,1, OK 2 

0(ii4* jsm root 

001 b* 

W016* This ROUTINE TAKES the TCI) (IN NANDSECS) AND N-CHANGE 
0017* FROM THE BUFFER, SUBTRACTS THE F'lXED DELAYS, 

0W16* CONVERTS THEM TO 2 WPS BINARY H OF NANOSECONDS 

0019* FROM THE, INITIAL P G I NT , D I V I DES BY TWO FOR 1-RAY 

0020* RANGE, AND STORES IT BACK In THE BUFFER, IF WORD 

0v121*“ #l.s-J (FOR A BAD POINT), THE TWO WDS IN THE BUFFER 

0022* ARt ZEROED, THE RANGE RATE IS CALC FOR EVERY 

01423* 3D Hu I NTS ; ThE RESULTS ARE STORED IN A BUFFER 

0024* KhUSt AOuR IS RETURNED IN (A), (NANOSEC/SEC) 

0025* 

0 0 2 /* 


00 2 b 




Sup 




0029 

0 0 0 00 

000000 

ROUT 

nup 




0 0 00 

0 0001 

to 6 2 00 3 X 


LD A 

TARS 2 



00 31 

0M002 

D06003 


SZB , 

RSS 



0032 

00 0 03 

06200 1 X 


LD A 

CDA 



00 33 

00 004 

V - ft 4 0]0 


SLb 




00 34 

0 0 00 5 

062002 X 


LD A 

TARSI 



0 035 

0 0 00 b 

U 7 2 6 ? 7 K 


SI A 

RAOR 

ADDRESS 

OF POINTS 

003b 

00007 

F. 02004 X 


LD A 

DONE 

NUMBER 

OF POINTS 

0037 

00010 

072*7bR 


ST A 

CNT 



0 038 

00011 

0773556 


STB 

LINK 



0039 

000 12, 

0600U 1 


LOA 

B 



0040 

00013 

100200 


OCT 

100200 

MPY) 


0041 

000 14 

00 1 36 1 R 


DEF 

.60 



004? 

00 0 1 5 

0 4 2 4 0 7 K 


ADA 

RRADR 



00 43 

00016 

0 7 231 oR 


STA 

RES AO 

ADDR FOR 

RESULT 

00 4 4 * 








00 4b 

00017 

063355k 


LD A 

LINK 

SET FIXED DELAY 

004b 

0 0 0 20 

100200 


OCT 

100200 

MPY> GET 

ADOR FOR CORRECT 

0047 

000 21 

00P705K 


DEE 

.20 



0048 

0 0 022 

042007 X 


ADA 

,35'FO 



0049 

0 0 023 

042704k 


ADA 

.16 



0 050 

00024 

il 72 K 30-k 


STA 

ED ADR 



005 1 * 








0052 

00025 

003 40«0 


CCA 




00 53 

00026 

07 3 37 OR 


STA 

F IRST 



00 54* 








0055 

00027 

016010* 


JSB 

DTB1 

CaNVERT 

TO BINARY 

00 55 

00 030 

0to0'7'H0 

FDA 0 R 

NUP 




0057 

0 0031 

000362R 


DEF 

MFD 



0058* 
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PAbt v» v 5 v u »0l * k anGF Ka It ROUTINE * 



000 42 

0b2462k 


L 0 A 

MFD 

make NEGATIVE. 


0/6t) 

v' 0 7 4 4 

004004 


CMA , 

INA 



MM 

0 4 0 4 4 

072362k 


5 r a 

MFD 



0462* 








0064 

000 35 

002400 


CUA 


CLEAR SUMS 


00 b 4 

0004b 

07 2 37 7 R 


ST A 

RTSUK 



aafib 

000 47 

0 7 2.40,0k 


STA 

RTSUM+l 



00 bb 

000 40 

072404k 


STA 

TT SUM 



0067 

00041 

0 7 2 4 0 4 R 


S TA 

TTSUM+1 



0 a 6 8 * 








006 y 

0 0042 

*' b 2 6 7 6 R 


L. 0 A 

CNT 

COMPUTE COUNTERS* 


0070 

000 44 

006400 


CUB 




007 1 

0 0 0 4 4 

1 0 0 0 0 0 


CJCT 

1 00400 

UI V 1 CALC # OF ROOTS 

TO CALC. 

00 72 

000 4 5 

0 00.7 1 4W 


DtF 

.30 



0 07 4 

0 0 0 4 1) 

006/02 


S/8 




0074 

0 0 0 4 7 

0020/ 4 


INA 


CNT2«INT(CNT/30)#l*(B) 


0 a / 5 

00 06*7 

*10 40 04 


XMA, 

INA 



00 / b 

0 ij f 5 1 

072675k 


STA 

CNT2 



K07 7 * 








0 07 b 

000 52 

062676k 

COUNT 

LI) A 

CMT 

3/ PTS , AVAILABLE ? 


00 7 9 

0 0 0 5 4 

042701 K 


AD A 

M30 



0 0 0 0 

00.05 4 

*1020 20 


SSA 




00 81 

*iH0bb 

U 26 5* 6 1 R 


JMP 

HO 

NO. 


00 62 

0 0 0 5 0 

0667/12 


LOB 

M30 



008 6 

00 0 57 

076674k 


sib 

CNT 1 



00 8 A 

0 0 0 b 0 

0 2 b f i b o K 


j riP 

KkLUP+1 



00 6 5 

00061 

0427 1 4R 

NO 

AU a 

.30 



00 b 6 

0 00 62 

0 0 40 0 4 


CM A , 

INA 

N < 30* SET COUNT 


0 0 67 

0 00 6 4 

07267 4K 


STA 

CNT 1 



00 8 6 

0*106 4 

02 6/ 66 W 


JMk 

RRLUP+1 



00 8 9* 








0 0 90 

0 00 b 5 

036677k 

RRL.Uk 

1SZ 

RADR 



00 91 

000 66 

162677K 


LA A 

RADR, I 

LOAD DELTA T (NS) 


0092 

00 067 

0/2*106 


INA, 

S2A 

GOOD POINT ?? 


009 4 

0067 0 

02b IwfiR 


jhk 

GU002 

YES. 


0 0 94 

000 7 1 

066677k 


LOb 

RADR 



0 09 5 

000 7 2 

1 7 W 0 M 1 


STA 




00 9b 

000 7 4 

(•06004 


INb 




0097 

0 0074 

1/0/01 


STA 

B » I 



0096 

0007 5 

046702k 


Au8 

.2 



00 99 

00076 

076677k 


STB 

RADR 



0100 

001-77 

044400 


CCA 




0101 

00100 

075370k 


STA 

FIRST 

: ^ ■ /.V' ... 


0102 

0010 1 

046674k 


152 

CNT1 



0104 

m i «2 

026065k 


JMk 

RRLUP 

LOOP AGAIN 


0 104 

00 103 

046700R 


ADD 

Ml 

MINUS 1 


0105 

001 0 4 

076677k 


STb 

RADK 

FOR LAST POINT 


0106 

00105 

026241k 


JMP 

ONI 



0107* 








0 10 6 

00 10 6 

0 4 2 7/M N 

G0QD2 

ADA 

Ml 

RESTORE (A) 


01 0 9 

00 10 7 

0 4 2 3 b 2 H 


ADA 

MFD 

SU BT RACT FIXED DELAY 

(#NS) 

0 110 

00110 

W b 6 6 7 7 k 


LDB 

RADR 



0111 

00111 

076 3639 


STb 

TEMP A 



0112 

00 112 

036677k 


IS2 

KADk 



0114 

m i i 4 

1 b b 6 7 7 R 


LD6 

RADk, I 



0114 

00114 

002021 


SS A 

,KSS 



0115 

001 1 5 

026121k 


JNP 

* 4> 4 
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HI lb M01 1 1 * V\A?7 12R 
ifi 1 1 1 \c M 1 1 7 W 4 6 7 0 w H 
v)116 01 *\2V M2bll4k 

M 1 1 9 0M121 W2 -lH 3 

In) 12M 0H122 0 6 2 7 w 2 R 

0121 M0l2o M/2367K 

0122 0 h 1 2 4 tiA'M'/ifej 1 

HI 2*5 00) 2b IHhSWH 

Ml 24 0*'l26 MMM712R 

Ml 2b idHl 2/ MUhH 4 0 
012b k 1Ml3w 042367k 
0 12/ H H 1 3 1 002?' 40 
0 1 2h h V i 13 2 M M A ? M 4 

0129 00 1 ^3 H MM *14 0 

01 30 00104 00A020 
M l 31 M M 10b t ' 2 ol b ? R 

0 1 32 0 V 136 00 b 50 M 

01 00 ioUl 0 7 MM lb MM 

0 10 4 ,.'014 1' 1044 00 

0 13b ■ 00141 £*0137 1R 
M l 36 Ml’ 142 17 6363k 
0 13/ ? A 1 4 3 / 3 6 3b o K 

M 1 3b 001 44 172363k 
0 139* 

0140 00 1 4b 00 7 37 UK 

0 5 41 0vl 14o 02b 1 60k 
0142 00147 (30 3 4H >3 

014 3 00 1 b 0 v. / 337 0 k 

0144 00151 M 2 A 1 7 b k 

0 14 b* 

M 1 4 b 00 1 b 2 01 b 3 4 0 k 
01, 4/ ; 0 0 1 b 3 0 0 0 0 4 0 

M l 4b 0«1 b 4 fes M b 5 l-i 0 , 

0149 00 1 bb 0 0150 0 

0150 00 156 0 16340k 

0 151 00 157 02b 140 k 

M 152* 

01 5 3 00 1 6 0 0 0 00 4 0 

0 1b4 0 .1 1 6 1 042375k 

015b 00162 002040 

Mibb 0*i 163 M 3 6 3 7 6 R 
0 1 b 7 0 0 1 b 4 000M&0 

Mibb 00165 0463/ bk 
0159 0016b 000040 

0 16 0 M0167 0 4 2 3 / 7 k 

0161 00170 002040 

M162 00171 MM 60 M4 

0163 00172 046400k 

M l 64 00173 0/23776 

MlbS 001/4 M/6 400k 
M 1 66 * 

0167 MM 17b 1 M42MM 
M 1 66 MM 17b 001371k 
M 1 69 0M1/7 Ml 6 340k 

017M 00200 104400 

0J71 0.M2W1 0MM37bk 

0 172* 


ADA 1T5 
A 06 Ml 
JMP *«4 
SzA, RSS 
L.D A .2 
ST A T EMP 
OK 3 Ll/A 6 

OCT 100200 
DEE IT5 
OLE 

ADA TEMP 

SEZ 

1NB 

CUE 

SSR 

JmF minus 

EkB 

ERA 

REST OCT 104400 
OtF RTEMP 
STb T ft h P A 1 1 
ISZ TEMPA 
STA TEMPA , I 

ISZ PIKST 
JMP CUNT-1 
CCA 

STA FIRST 
JMP FUR ST 

MINUS JS6 COMP 
CLP- 
tkB 
ERA 

JSB COhP 
JMP REST 

CLE 

CDNT ADA KTL 
SfcZ 

ISZ RTL+1 
NLP 

AD6 RTL+1 
CLE 

ADA RTSUM 
SEZ 
1NB 

A 06 RTSUM + 1 
STA RTSUM 
STB RTSUM + 1 

FUkST OCT 104200 
Dtp RTEMP 
JSB COMP 
OCT 104400 
DtF RTL 

5-15 0 


SUBTRACT 1 WAVELENGHTH 

MP VI N5 * T5 
ADO DELTA T(5) 

DIVIDE BY 2 

DSTJ 

STORE BACK IN BUFFER, 

FIRST TIME ? 

Y f g 

RESET FLG FOR 1ST TIME TAG, 

compliment NUMBER 
DIVIDE BY 2 

DELTA • HT(I) - RT(I-l) 

SUM DELTAS 

SAVE 

OLD! CURRENT RANGE TIME. 

Change sign 
dst; at rt(last) 


REPRODUCIBILITY Qf p 
ORIGINAL PAGE MM®k‘ . 


page ku'vb nul * HANC-fe RATt ROUTINE * 


HI 73 

0/202 

036677k 


ISZ 

RADk 

LOAD TIME TAG 

0174 

0 0 2 0 3 

1 0 4 2 0 0 


OCT 

104230 

DIO; (A) ■ LSB'S 

0 17 5 

W0204 

100677k 


DEF 

RADR, I 

CB) ■ MSB’S 

0 17 5 

0020b 

100400 


UCT 

104400 

DST I SAVE FOR MOVE 

^177 

0020 6 

000363k 


DtF 

TEMPA ! 


0 17 8 

00207 

037370k 


ISZ 

FIRST 

FIRST TIME THRU 7 

0 179 

0/2 1 0 

002001 


kSS 


NO. 

0 100 

V 0211 

026227 R 


JMP 

FRST2 

YES, MOVE TIME TAG, 

0181 

00212 

0/0040 


cut 


i calc delta time. 

e-itea 

0 'A 213 

042373k 


ADA 

TTL 

| LSB'S 

01 83 

W/2 14 

Z/2040 


5EZ 



018 4 

00121b 

036374k 


isz 

T T 1 ♦ 1 


0 18b 

0.102 16 

000000 


NOP 



0 18b 

0' A 217 

046374k 


A 06 

TTL+1 


i! 187* 







0 188 

0 0; 2 2 0 

000040 


CLt 



H 1 8 4 

0 0 2 2 1 

042403k 


AU A 

ITSUM 

SUMI LSB'S 

0 1 90 

100222 

002040 


SEZ 



0 14 1 

00 223 

0/6004 


1N6 



0 192 

00224 

0 4 6 40 4 » 


A OB 

TTSIJM + 1 

MSB'S 

0 193 

01122b 

1 vi 4 4 0 0 


UCT 

104400 

DST» 

0 19 4 

00226 

0 0 0 4 0 3 R 


DEF 

TTSUM 


0 193* 







0 1 95 

00227 

104200 

FRST2 

OCT 

1 04200 

OLD) LOAD CURRENT TIME TAG 

0 197 

00 23U 

000363k 


Dt F 

TEMPA 


0198 

0/231 

016340k 


JSB 

COMP 

MAKE NEGATIVE 

0199 

00232 

104400 


OCT 

104400 

OST; SAVE AT TTL AST 

0 2 00 

00 233 

0 0- 0 3 7 3 R 


DEk 

TTL 


0 201* 







0 2 0 2 

00234 

H 3 6 6 7 4 k 

.NEXT 

ISZ 

CNTl 

DONE WITH 30 PTS, 7 

0 20 3 

0 0 2 3 b 

026237k 


JMP 

RRL 

NO. 

0204 

00 2 3b 

026241R 


JMP 

ONI 

DUNE } 

05?0b 

01 0 23 7 

036677k 

kkL 

IbZ 

RADR 


0205 

00240 

026065k 


JMP 

RRLUP 


1320 7 

0 0 2 41 

104200 

ONI 

UCT 

104200 

DLDI YES, CALC ROOT. 

0 208 

0/242 

000377k 


DEF 

RTSUM 


020 9 

0/243 

0/6020 


SSP 



0210 

0024 4 

016340k 


JSB 

COMP 


0211 

00245 

1 00 400 

I T SDK 

OCT 

100400 

DIVI 

0212 

00 246 

00071 bk 


UEF 

.IK 


0 2 13* 







0214 

00247 

104400 


OCT 

10 4 400 “j 

OST; CQNV TO POSITIVE NO. 

021b 

00250 

0/01 363 k 


GEF 

TEMPA 

AND SAVE SIGN, 

0216 

00251 

0160 1 IX 

POS 

J 66 

BTD 


021 7 

00252 

000363k 


Dtk 

TEMPA 


0216 

00 253 

000367k 


Dt F 

TEMP 

DEC « US 

02 1 9* 







0220 

002 b 4 

062367k 


LD A 

TEMP 


0221 

00 2 5b 

017032k 


J 56 

GOFUP 


0 222 

00256 

000003 

.3 

DEC 

3 


0223 

00257: 

072367k 


STA 

TEMP 

TEMP ■ RTSUM (NANOSECONDS) 

0224 

0/250 

0 1 601 IX 


J 56 

BTD 


022b 

00261 

/ 0 VJ 3 o 4 k 


DEM 

TEMPA* 1 


0226 

00262 

000363k 


OtF 

TEMPA 


0227* 







0228 

0/263 

fc 1 6 0 0 6 X 


JSB 

DADO 

COMBINE 

0229 

0026 4 

000 367 k 


DEF 
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PAUc Vlvit'b «v'l * h AMVfc RATE ROUTINE * 


0230 

0kl?bD 

0231 

1c! 0 2 6 ti 

0232* 


0 2 33 

U vi 2 6 7 

0 2 3 4 

3 l'i 2 7 0 

0 2 3b 

0027 1 

0 2 36 

002 7 2 

0 23 7 

00.27. 3 

0 23b 

00274 

0239 

0627 b 

0 2 4'? 

0027 6 

02 4 1 

0^2 7 7 

0 242* 


02 43 

0vl3'IP 

0 24 4 

0 0 0 V: 1 

0 24 b 

30 2 

02 4 6* 


0? 4 7 

0 , i ? 0 3 

024 d 

0 v- 33 4 

0 2 49 

0 0 0 0 b 

0 2 50 

00 306 

02 b 1 * 


02b? 

v ,o07 

0 ? b 3 

0 ',i 3 1 Ir 

025 4 

0 0 3 1 1 

0265 

0031 2 

0 2 b b * 


02b 7 

U0 3 1 3 

0 2 b 8 

30 3 1 4 

0 2 b9 

0031b 

0 260 

04 3 1 6 

0 2 o l * 


fc’ ? 6 2 

003 1 / 

0 2b 3 

01.32U 

0 26 4 

<90 321 

0 2d5 

00322 

0266 

00 0 2 3 

0 26 7 

00324 

0 26 6 

003 2 o 

0 2 b 9 

00326 

0 2 7 0 

00327 

02 71 

003 30 

0 272 

00 331 

027 3 

00 33? 

0274 

00 333 

0275 

00 334 

0276 

00335 

0 277 

00 336 

0276 

00 3 37 

0 279* 


0 2P0 

00 3 40. 

0261 

00341 

0262 

00342 

0 ?b 3 

m 343 

0284 

003 4 4 

0 2 8 b. 

00 3 4 b 

0285* 



000363R 
MW 37 7k 

1 0 4 200 
■3 0 0 4 0 3 R 
1 a 0 4 u 0 
000 707 K 

104400 

k; 0 0 3 6 3 R 

v' t 6711 X 
W 0 0 3 A 3 k 
0 0 4 3b 7 K 

0 1 6 0 11 X 
000364k 
0 0 0 3 b A K 

0 6 23 o o h 
017032W 

1777/4 
072363k 

0. 16 7 PI ft X 
0 14 0 36/9 
000 36 3k 
0 0 0 4 0 3k 

316<M3X 
000377k 
0. 0 0 4 0 ,} k 
0 0 0 4 1 HR RES AO 

036675k 

0k 2001 

12 67100k 

0 623 lb ft 

0427K3K 

072316W 

002400 

07237/K 

P72400R 

072403k 

072404k 

036p77P 

036677R 

062676K 

0 4270 1 R 

072676k 

026062k 

000000 COMP 
0 0 7 100 
0 0 3 0 0 4 
01V204M 
0 0 6 /• 0 4 
12634WR 


D'fcF TEMPA 
OtF RTSUM 

OCT 104200 
OEF T T SUM 
OCT 100400 
DEF . 1 OK 
OCT 104400 
OEP TEMP A 
JS0 BTD 
l.'KF TEMP A 
DtF TEMP 

jsb ero 

UEF TEMPA+i 
OEk TEMP A 

l.OA 1 tMP A 
J SB OOF UP 
etc -4 
ST A TtMPA 

JSfa DADO 
OE'P TEMP 
OEP TEMPA 
DEF TTSUM 

JSb ODIV 
DEP RTSUM 
DEF TTSUM 
OtP RRATA 

1SZ CNT2 
KSS 

J IMP ROOT, I 
LUA RES AD 
ADA .4 
ST A RES AD 
CL A 

STA RTSUM 
ST A RTSUM* 1 
STA TTSUM 
STA VTSIJM + i 
ISZ R ADR 
ISZ K ADR 
LOA CNT 
ADA M30 
STA CNT 
JMP COUNT 

NUP 

CMH, CLfc 
C M A , X N A 
SE2 
1 NB 

JMP COMP , I 


DECIMAL NO, OF NS IN RTSUM 
OLD, CONV TTSUM TO DEC 
DIV, (A)b«SEC. (B) *#, IMS 
OST 

DEC 4 OF SECONDS 

DEC W OF .IMS'S 
CONVERT TO SECONDS 

COMBINE 

SUM RT 'S/SUM TT'S 

* RANGE RATE (NS/SEC) 

DONE WITH ALL RANGE RATE ? 
NO, 

YES, 
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PAGE 0807 »01 * RANGE RATE ROUTINE * 


0287*** CONSTANTS 

AND STORAGE 

* * ★ ★ * 

f 

0288 

00 5 46 

1 0b 400 

01 

UCT 

105400, 10000,8,0 

[1 

8 269 

00352 

105408 

02 

UCT 

105400,20080,0,0 

I -f 

} i 

• . y 

0 29lf 

W055O 

1 w 4000 

Th OCT 104000, 50000,01*0 

if. 

0291 

0 U 3 6 2 

0 0' 0 0 0 0 

MFQ 

OCT 

0 


0292 

00363 

000 000 

TEMPA 

bSS 

4 

i 

029o 

M M 36 7 

0 0 0 0 00 

TEMP 

bss 

4 


0294 

0037 3 

0 0 0 20 0 

TTL 

BSS 

2 


0 295 

00 37b 

000000 

RTL 

BSS 

2 


0296 

00 377 

0 0 0 000 

RTSUh 

BSS 

4 

' 

0297 

0 0403 

000000 

TTSUM 

BSS 

4 


02S8 

(3 (A 4 5 7 

0 0 0 4 1 0 K 

RRADR 

DEF 

RRATA 

.} 

0 299* 







0388 

004 10 

00 0000 

R R A T A 

BSS 

60 


0 301 

00 504 

01 -'0000 

RRATB 

BSS 

60 


M3 02 

00600 

000000 

RRATC 

BSS 

60 


050 3 

0 36 7 4 

000000 

CNtl 

NOP 



0 30 A 

0 067b 

0 VI 0 00 0 

CNT2 

NOP 



0 30 b 

w O o 7 b 

8 0 0 0 00 

CNT 

NOP 


" ' • i 

0306 

MOO/ 7 

Wi 00 00 0 

KAUK 

NOP 


Vt 

0 30 7 

00 0 0 0 


A 

EUU 

0 


050S 

05001 


6 

tuu 

1 


0309 

0 0 7 00 

177777 

HI 

DEC 

-1 


0310 

00701 

17/742 

N30 

DEC 

-30 

V 

. f " 

0311 

007 02 

0 0 0 0 0 2 

.2 

DEC 

2 

■ \\ 
j! 

0312 

007 03 

500004 

.4 

DEC 

4 

h 

: e 

M315 

00 7 0 4 

000020 

.16 

l/EC 

16 

.. fi 

vt 

t-5 

0314 

00705 

0 0 00 2 4 

.20 

DEC 

20 

• f!: 

0310 

007 06 

005 1 77 

6177 

OCT 

177 

: . H: 

: - | 

0310 

00707 

023420 

.10K 

DEC 

10000 


0317 

0 0710 

000030 

030 

OCT 

30 

• ; . 2 

0313 

00711 

000200 

.SIN. 

OCT 

288 

. . . • ; . • . : . \ i 

0319 

00712 

011610 

ITS 

DEC 

5000 

■ H 

0 32M 

W0713 

166170 

N5000 

DEC 

-5000 

' -• • 

0321 

00714 

000046 

.30 

DEC 

30 

V-.| 

0 322 

0071b 

001750 

.IK 

DEC 

1080 



B 
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VOLUME I. CDA SYSTEM MANUAL 


ADJUST RANGE ROUTINE 


FA be .1 .1 U 6 ftk- 1 


Hr** ADJUST HANGt ROUTINE. 


r ********** * 


adjust k cuj t i n t : 

LOU LINK 0,1, Oft 2 
JSB AO JUT 

OfcF ROUT A DDK OF 10 ROOT’S 




his ROUTINE MULTIPLIES THE NOMINAL 
RANGE n5*Tb BY THE RANGE RATE 
CORRECTION FACTOR: (l + RDOT)/2 


v'3J6* 

U 3 37 

'o 07 1 6 

000000 

AOJUT 

NOR 


v’33S 

00717 

062 00 4 X 


LUA 

UONfc 

i-! 3 3 u 

t".?72K 

0 7 7 3 b bk 


Sib 

LINK 

0 3 4 to 
0341 

0 07 21 
fc. '’722 

0 /) 0 4 (* 0 
100400 


clb 

OCT 

1 0P4OM 

W342 

vi i.O 7 2 3 

0 U 0 7 1 4 R 


OfcF 

,30 

16 343 
•7i344 
03 45 

fci 0724 
0372b 
007 26 

vH 2 6 f- 0 2 
MM2 PL 4 
p.W 3 f! 0 4 


s^e 

INa 

CM A, 

INA 

0 346 

00727 

U7 3 36 MR 


3 1 A 

. CNT 

0 34/ 

007 30 

1 6 ? 7 1 6 R 


LUA 

AOJUT, 

0 3 48 

0 07 31 

P' 3 0 7 1 6 n 


1S7 

AOJUT 

0349 

0 07 3? 

U 7 3 3 6 ? R 


STA 

rdota 

03b0 

00 7 33 

07 3357 R 


6 T A 

ROOTB 

03M 

00.7 34 

0 6 3 3 b 6 R 


LOA 

LINK 

03b? 

0073b 

100 200 


UCT 

100200 

0 3 b 3 

0 0 7 36 

Pi v) 0 7 0 3 R 


OfcF 

.4 

P?3b4 

00737 

M 4 3 3 5 6 R 


ADA 

C5ADR 

0 3 b b 

00 7 40 

07 30 1 IK 


STA 

NbTAO 

0356 

007 41 

07 27 6 1R 


STA 

.OFF 

0 3 b 7 

0 v 7 4 2 

K 6 33b b R 


LOA 

LINK 

0 3 b 6 

w 07 4 3 

100200 


OCT 

100200 

0 359 

0 vi 7 4 4 

Owl 36 lk 


OfcF 

.60 

0360 

0 0 7 4b 

M 4 3 fi b 0 R 


ADA 

NbT 5 A 

03 61 

00746 

0 7 3 P) 1 3 R 


STA 

A NS 

0 362 

00 7 4 7 

it! / 3 3 6 7 R 


STA 

ANSI 

■0363* 

/i 36 4 

0 0750 

K633&bK 


LOA 

LINK 

0365 

0 0751 

1 0I0 2PJ0 


UCT 

100200 

036 6 

0 0 7 b? 

P! 0 0 7 1 P‘ R 


DtF 

030 

036/ 

03 7 53 

0420 1 2 X 


AO A 

N . V A L 

0368 

0U754 

Pj 4 2 7 W 5 K 


ADA 

.20 

0369 

007 bb 

27 27 57 R 


STA 

.RIP 

037H* : 

0371 

01)756 

fcl6005X 


J SB 

OMUL 

0 37? 

U07 57 

0(iPl0iA^ 

*R I P 

NUP 


0 373 

00 7 60 

Vl-toft 35 6 R 


OfcF 

T5 

037 4 

00761 

Vi vi ft ft ft v) 

.OFF 

NOP 


ft 3 7 b '* 

0376 

007 62 

0 b 7 3 6 2 R 

UMFUP 

lud 

RDOTA 

037 7 

0 37*3 

160001 


LOA 

b, I 

0 37 8 

007 64 

017032K 


jse 

GOFUP 

03? & 

00 76 b 

■ 177767 


DfcC 

*9 

0 360 

Mu 7 66 

0 7 3 3 6 3 K 


ST* 

, RO 





5-156 


Oiv; CALC COUNT 


AODR OF 1ST RANGE RATE 


AUOR OF N5T5(*NS NOMINAL) 


MPY BY 361 


LOAD RANGE RATE, CONY 
TO # SECONDS AND 



PAGE Hv'U'W «wl *** .ADJUST RANGE ROUTINE 


03R1 

00767 

0 0 b 0 M 4 


1 NB 




I 

0362 

00770 

lb0P0 1 


LUA 

B, I 



1 

0363 

00771 

0733648 


STA 

.80*1 



■ I 

0384 

0 0 7 72 

00 600 4 


IN6 




'■ 1 

5 

0 3 H b 

00 77 3 

lb0*?0 1 


LUA 

6,1 



| ■ 

0366 

0 07 7 4 

0733658 


STA 

. WD + 2 



I 

0387 

00775 

006004 


IN6 




r 

038b 

0 0 7 7b 

160001 


LUA 

6,1 



*: ■■ 

0 369 

0ii777 

073366R 


STA 

.80 + 3 



f- 

ns 9 / * 








i ■ 

o3y i 

0 1000 

016006X 

ALUP 

JSH 

DADO 



... 1 ' 

0 392 

0100 1 

001 3b3R 


DfcF 

.RD 



. . If 

■ 1 

0393 

0 1 002 

0W0346H 


OEF 

01 



I 

it 

0394 

0 10 0 0 

00U367R 


DEF 

TEMP 



I 

■••••■ 1 

s y b * 








■ I' 

0 39b 

0 1 0 0 4 

W16013X 


JSb 

DO I V 



1 

0397 

0 1 00 b 

0003678 


DEF 

TEMP 



t 

039b 

\A ) ?M 6 

0003628 


OEF 

D2 



■ . jr 

0 399 

0 1 007 

0M0 3b 78 


DEF 

TEMP 



!. 

£1400* 








i ' 

V\ 4 fci 1 

01010 

0 1 ft 0 0 5 X 


J SB 

UMUL 



| 

0402 

01011 

000000 

N{j TAD 

NOP 

1 : ■ ': f 


N 5 T 5 * ( 1 *R DOT) / 2 


0 4 C 3 

0 1 0 1 2 

0003678 


Dtp 

TEMP 



s 

0404 

0 1M13 

000000 

ANS 

NUP 




■■ S' 

040b* 









0406 

01014 

0373608 


ISZ 

.CNT 


DONE ? 

■ ■ ■ tt . 

ij ■■ 

0 407 

0101 5 

027023K 


JMP 

A 15 A I N 


NO, 

if ; 


0101b 

0633678 


loa 

ANSI 


A OOP OF 1ST 

■■■ 4 • 

t- ' 

0 409 

01W17 

0673518 


LOb 

.725 


ADJUSTED C5 

; ■ ft 

0 4 1 0 

01020 

0473558 


Aue 

LINK 



■ ■ it 

0411 

01021 

170001 


STA 

6 , 1 



£$.' " 
i- 

0412 

01022 

1267168 


JMP 

A D J 'J T , 

I 

RETURN. 

' r 

0413* 









0414 

01023 

0633628 

AGAIN 

LD A 

ROO T A 


GET NEXT 

O'. 

It 

0 415 

01024 

0427038 


AU A 

;.4 


RANGE RATE 

. II 

0416 

0102 b 

0733628 


STA 

RDOTA 



.[V- ' 

0417 

W1026 

0630138 


lda 

ANS 



• . ty 

0418 

01027 

0427038 


AU A 

.4 




0419 

01030 

0730138 


STA 

ANS 



.. •I:' 
tt- 

0420 

01031 

0267628 


JMP 

UNFUP 



. i'i " 

' jl 

0 421* 








It”: 

... ■ i-.| 

0422 

01032 

000000 

GOFUP 

NOP 





0 *23 

01033 

001623 


EL A 

, 8A8 



h- 

0424 

01034 

001727 


ALF 

,ALF 




0 42 b 

01035 

0127068 


ANI) 

6177 



*8 . 

0426 

0103b 

002040 


SEZ 





0 427 

01037 

003004 


CM A 

^ IN A 




0428 

01040 

1430328 


ADA 

gofup, 

I 


^ 6.- ; - It: 

0429 

01041 

002021 


SSA 

f RSS 



: ll 

0430 

01042 

027045R 


JMP 

RETX. 




0431 

01043 

003004 


CM A 

, INA 



'■ . i- 

0432 

01044 

03271 IR 


108 

.SIN. 




0433 

01045 

00 1727 

RETX. 

alf 

, alf 




0434 

01045 

0370328 


ISZ 

GOFUP 



• ' 

04 36 

01047 

1270328 


JMP 

GOFUP, 

I 



0 43b* 









0437** 

STORAGE AND 

CONSTANTS 


********* 
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PAbt 0010 »M1 *** ADJUST RANGE ROUTINE 


0438 

0 1050 

0Vj 1 05 1 R 

N 5 T 5 A 

DEF 

C5CRA 

0 439 

01051 

000000 

C5CRA 

BSS 

60 

a 4 40 

01145 

000000 

C3CRB 

bSS 

60 

0441 

01241 

000000 

C5CRC 

oSS 

60 

0 442 

0 1 335 

000000 

NT ADR 

BSS 

12 

0 44.3 

01551 

00 1 3b?R 

.725 

DEF 

N5C 

0444 

01352 

000000 

N5C 

NOP 


044b 

01353 

0 0 0 v) 0 0 

N5T1 

NOP 


0440 

01354 

000000 

N5T2 

NOP 


0447 

01355 

000000 

LINK 

NOP 


M 4 4 B 

01356 

00K535R 

C5ADR 

OEF 

NTADP 

0449 

01357 

MM 0000 

RDQTB 

NOP 


0 4 50 

01 360 

0M00M0 

.CNT 

NOP 


04b ) 

M 1 301 

000074 

.60 

DEC 

60 

0452 

01362 

000000 

ROOT A 

NUP 


0403 

0 1 3 o 3 

000000 

,K0 

HaS 

4 

P454 

0 1 3o7 

00M000 

ANSI 

NUP 


0455 

01370 

000000 

FIRST 

NOP 


045b 

01371 

000000 

RTfc'Mp 

BSS 

2 

0 457 




ENO 


* * 

no errors: amo 

ASHB.251 17- 

,n 

CM 

•s 

a 

a 
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MODEM SEND ROUTINE 

4 
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P*«E 0002 *01 * MODEM SEND ROUTINE * 6MAR75 


0001 



ASMB # 

Rf By L 


0003 

00000 



NAM SENO 


0004 




ENT SENO 


0005 




EXT PRINT, RTTYB 

0006* 






0007 

00000 

000000 

SEND 

NOP 

■■ r . v: 

0008 

00001 

001727 


ALF, ALF 

PUT IN HIGH ORDER 

0009 

00002 

076034R 


STB SAVE 

SAVE B 

0010 

00003 

012045R 


AND "B177400 

12XX 

0011 

00004 

001700 


ALF 

2XX 1 

0012 

00005 

072035R 


STA SAVE 1 


0013 

00006 

003000 


CMA 


0014 

00007 

012046R 


AND *B17 


0015 

00010 

001727 


ALF, ALF 


0016 

00011 

032035R 


IOR SAVE1 

21 XX 

0017 

00012 

006400 


CLB 


0018 

00013 

012045R 


AND *8177400 


0019 

00014 

102615 


OTA CH 


0020 

00015 

103715 


STC CH,C 


0021 

00016 

102315 

SFS 

SFS CH 


0022 

00017 

0 2 6 0 2 3 R 


JMP TIME 

CHECK FOR TIMEOUT 

0023 

00020 

107715 


CLC CH , C 

1 ! 
! ^ 

0024 

00021 

066034R 


LDB SAVE 

RESTORE B 

0025 

00022 

120000R 


JMP SEND, I 

EXIT 

0026* 





i 

0027 

00023 

034001 

TIME 

ISZ 1 

i •• 

0028 

00024 

028016R 


JMP SFS 

NOT YET 

0029 

00025 

107715 


CLC CH,C 

TIMED OUT. CLEAR CHANNEL 

0030 

00026 

062047R 


LDA -D7 

PRINT TIMEOUT 

0031 

00027 

0 1 6 0 0 1 X 


JSB PRINT 


0032 

00030 

000036R 


DEF ERROR 


0033 

00031 

003400 


CCA 

WAIT FOR INSTRUCTIONS 

0034 

00032 

01 6002 X 


JSB RTTYB 


0035 

00033 

026031R 


JMP *-2 


0036* 






0037 

00034 

003000 

SAVE 

NOP 


0038 

00035 

0000.00 

SAVE1 

NOP 


00 39 

00015 


CH 

EQU 15B 


0040 

00036 

046517 

ERROR 

A SC 7, MODEM 

TIMEOUT 


00037 

042105 





00040 

046440 





00041 

0521 1 1 





00042 

046505 





00043 

047525 





00044 

052040 





00045 

177400 





00046 

000017 





00047 

000007 




0041 




END 



** NO ERRORS! AMD ASMB.251 17-402S 1 0 
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E 0002 M0i * FIXED DELAY COMPUTATION * 2JAN75 


0001 



ASMS , R 

' * B t L 


0003 

00000 



NAM 

FIXD 

0004 




ENT 

FIX.D 

0005 




EXT 

MODE, MO 

0006* 






0007 

00000 

000000 

FIX.D 

NOP 


0000 

00001 

1 6 2 0 0 0 R 


LOA 

FIX.D, I 

0009 

00002 

036000R 


ISZ 

FIX.D 

0010 

00003 

072130R 


STA 

CDA 

0011 

00004 

0 4 2 1 3 7 R 


ADA 

■D20 

0012 

00005 

072050R 


STA 

TARSI 

0013 

00006 

042137R 


ADA 

*020 

0014 

00007 

072060R 


STA 

TARS2 

0015* 






0016 

00010 

06200 4 X 


LDA 

FIXT1 

0017 

0001 1 

072051R 


STA 

■ 1DT1 

0018 

00012 

042137R 


ADA 

■ 020 

0019 

00013 

0 7 2 0 6 1 R 


STA 

• 10T2 

0020 

00014 

042137R 


ADA 

■ 020 

0021 

00015 

072117R 


STA 

. 1 DSP 

0022 

00016 

042137R 


ADA 

■020 

0023 

00017 

072125R 


STA 

* 1DTR 

0024* 






0025 

00020 

062001 X 


LOA 

MODE 

0026 

00021 

052140R 


CPA 

■ B2 

0027 

00022 

026030R 


JMP 

MODEB 

0028 

00023 

002011 


SLA, 

RSS 

0029 

00024 

0 2 6 0 3 4 R 


JMP 

MODEC 

0030* 






0031 

00025 

062 1 4 1 R 

MODEA 

LDA 

■ D*5 

0032 

00026 

0721 3 IR 


STA 

CNT 

0033 

00027 

0260 40 R 


JMP 

GO 

0034 

00030 

0621 4ZR 

MODES 

LDA 

■ D-4 

0035 

000 31 

072131 R 


STA 

CNT 

0036 

00032 

016066R 

AGAIN 

JSB 

GOl 

0037 

00033 

026040R 


JMP 

GO 

0038 

00034 

0621 4 3R 

MOD EC 

LDA 

■ 0*3 

0039 

00035 

072131 R 


STA 

CNT 

0 0 40 

00036 

0 1 6 0 6 6 R 


JSB 

GOl 

0041 

00037 

026032R 


JMP 

AGAIN 

0042* 






0043 

00040 

0621 30 R 

GO 

LOA 

CDA 

00 44 

00041 

007400 


CCB 


0045 

000 42 

016110R 


JSB 

ADD 

0046* 






0047 

00043 

062050R 


LDA 

TARSI 

0048 

00044 

072052R 


STA 

ADD3 

0049 

00045 

066 1 44R 


LDB 

■ D-2 

0050 

00046 

016110R 


JSB 

ADD 

0051 

00047 

016003X 


JSB 

DADD 

00 52 

00050 

000000 

TARSI 

NOP 


0053 

00051 

000000 

• 1DT1 

NOP 


0054 

00052 

000000 

ADDS 

NOP 


0055* 






0056 

00053 

062060R 


LDA 

TARS2 

0057 

00054 

072062R 


STA 

ADD4 

0058 

00055 

0 6 6 1 4 4 R 


LOB 

■ D-2 
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FIXED DELAY TABLE 


satelite delay table 


DELAY+.iDTR+.iDSP 


DELAYS. 1DSP*.103P*.1DTR 
♦. 1DT1 


PAGE 


0059 

0060 
0061 
0062 
0063 
0064* 

0065 

0066 
0067 
0068* 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 
0087* 
0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 
0103 
0104* 

0105 

0106 

0107 

0108 


0003 

*01 * FIXED DELAY 

00056 

016110R 


JSB 

00057 

016003X 


JSB 

00060 

000000 

TARS2 

NOP 

00061 

000000 

• 1DT2 

NOP 

00062 

000000 

AD04 

NOP 

00063 

036131R 


ISZ 

00064 

026032R 


JMP 

00065 

126000R 


JMP 

00066 

000000 

G01 

NOP 

00067 

062130R 


LOA 

00070 

042145R 


ADA 

00071 

072130R 


STA 

00072 

042137R 


ADA 

00073 

072050R 


STA 

00074 

042137R 


AOA 

00075 

072060R 


STA 

00076 

06205 1 R 


LOA 

00077 

0421 45R 


AOA 

00100 

0 7 2 0 5 1 R 


STA 

0010 i 

042137R 


AOA 

00102 

072061 R 


STA 

00103 

042137R 


AOA 

00104 

072U7R 


STA 

00105 

042137R 


AOA 

00106 

072125R 


STA 

00107 

126066R 


JMP 

00110 

000000 

ADD 

NOP 

00111 

072126R 


STA 

00112 

0 7 6 1 3 6 R 


STB 

00113 

069116R 


LOB 

00114 

016002X 


JSB 

00115 

016003X 


JSB 

00116 

000132R 

SAVEX 

OEF 

00117 

000000 

• 1 DSP 

NOP 

00120 

000132R 


OEF 

00121 

036136R 


ISZ 

00122 

0261 1 5R 


JMP 

00123 

016003X 


JSB 

00124 

000132R 


DEF 

00125 

000000 

• IDTR 

NOP 

00126 

000000 

ADD! 

NOP 

00127 

1 26 1 1 0 R 


JMP 

00130 

000000 

CDA 

NOP 

00131 

000000 

CNT 

NOP 

00132 

000000 

SAVE 

BS3 

00136 

000000 

SAVEB 

NOP 

00137 

000024 



00140 

000002 



00141 

177773 



00142 

177774 



00143 

177775 



00144 

177776 



00145 

000004 




5 


COMPUTATION * 2JAN75 


ADD SAME AS TARSI 

DADO ♦. 10T2 


CNT 

AGAIN DO NEXT OELAY 
F I X • 0 , 1 EXIT 


CDA 

■ 04 

CDA 

■ D20 
TARSI 

■ D20 
T AR32 

• 1 DTI 

■ D4 

. 1 DTI 

■ D20 

1 1 DT2 

■ 020 

. 1 DSP 
■D20 

• IDTR 
GO 1 , 1 


ADD1 

SAVEB 

SAVEX 

MOVE 

DADO 

SAVE 

SAVE 

SAVEB 

SA VEX* 1 IF TARS ADD , 

DADD 

SAVE 


ADD, I 


4 
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1DSP AGAIN 
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010 

** 


9 END 

NO ERRORSI AMD ASMS, 251 17-40251B 
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P*r,fc 0002 #01 * TTY HANOLER * 


0001 



ASMS , 

R»B,l 

» 

0003 

00000 



NAM 

HAND 

0004 




ENT 

TT0,CULL1,CULL2,RTTYB,FIXT1,TTYDA 

0005 




ENT 

MQDSX , IN0C, IN0T1 , IN0T2 

0006 




EXT 

A77B, MOOT, MSX,MTX, MSG 1 

0007 




EXT 

C0A,TARSi,TARS2,DEC0D,DDTA,BCDBI 

0008 




EXT 

OKFLL,ETIME,TTYST, .IOC., ABORT, L ABLE 

0009 




EXT 

L INKS, M AX T, MAXTl, TIME, MODE, YR 

00 10 




EXT 

PRINT, CLEAR, DONE 

0011 




ENT 

BB200,BB27,BB39,BB283 

0012 




ENT 

SPAN , TSPAN 

0013 




EXT 

B570 

0014 




SUP 


0015* 

** MAR 12,1975 



0016* 






0017* 

RTTY 

TELETYPE HANDLER 


0018* 






0019 

00000 

000000 

RTTYB 

NOP 

0020 

00001 

073327R 


STA 

TTYM 

0021 

00002 

063420R 


LDA 

■ 02 

0022 

00003 

016030X 


JSB 

PRINT 

0023 

00004 

001277R 


DEF 

XXX 

0024 

00005 

0 1 60 1 7 X 


JSB 

• IOC. 

0025 

00006 

010001 


OCT 

10001 

0026 

00007 

026005R 


JMP 

*•2 READ TTY 

0027 

00010 

00 1 30 1 R 


DEF 

TTYOA 

0028 

00011 

000013 


DEC 

11 

0029* 






0030 

00012 

063327R 


LDA 

TTYM 

0031 

00013 

002006 


ina, 

SZA 

0032 

00014 

1 26000R 


JMP 

RTTYB, I STATUS NOT REQUIRED 

0033* 






0034 

00015 

016017X 


JSB 

.IOC. STATUS CHECK 

0035 

00016 

040001 


OCT 

40001 

0036 

00017 

002020 


SSA 


0037 

00020 

026015R 


JMP 

*-<3 

0038* 






0039 

00021 

066054R 


LDB 

TTYTB 

0040 

00022 

063322R 


LDA 

TTYB 

0041 

00023 

073317R 


STA 

ZBUF 

00 42 

00024 

002400 


CLA 


0043 

00025 

073330R 


STA 

CNTT 

0044 

00026 

160001 

UP 

LOA 

1»I 

0045 

00027 

002003 


SZA, 

RSS 

0046 

00030 

026036R 


JMP 

OUT 

0047 

00031 

053301R 


CPA 

TTYDA 

0048 

00032 

026045R 


JMP 

OK LEGAL CALL 

0049 

00033 

006004 


xnb 


0050 

00034 

006004 


XNB 


0051 

00035 

026026R 


JMP 

UP CHECK NEXT ENTRY 

0052 

00036 

062014X 

OUT 

LDA 

OKFLL 

0053 

00037 

002002 


SZA 


0054 

00040 

026115R 


JMP 

MIKE WAITING FOR OK 

0055 

00041 

06342 1 R 

ERROR 

LDA 

■ 03 

0056 

00042 

016033X 


JSB 

PRINT 

0057 

00043 

001324R 


DEF 

HSG 

0058 

00044 

126000R 


JMP 

RTTYB, I 
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0059* 






0060 

00045 

052103R 

OK 

CPA 

OKS 

0061 

00046 

026115R 


JMP 

MIKE 

0062 

00047 

062014X 


LDA 

OKFLL 

0063 

00050 

002002 


SZA 


0064 

00051 

026020X 


JMP 

ABORT 

0065 

00052 

006004 


INB 


0066 

00053 

124001 


JMP 

1»I 

0067* 






0068 

00054 

000055R 

TTYT8 

DEF 

*♦1 

0069 

00055 

041454 


ASC 

1,C, 

0070 

00056 

026122R 


JMP 

CULL 

0071 

00057 

044454 


ASC 

1*1* 

007 2 

00060 

026255R 


JMP 

MOSET 

0073 

00061 

052054 


ASC 

1 , T , 

0074 

00062 

026262R 


JMP 

MTEST 

0075 

00063 

054454 


ASC 

1 * V * 

0076 

00064 

026136R 


JMP 

YEAR 

0077 

00065 

051462 


ASC 

1,S2 

0078 

00066 

026145R 


JMP 

SYS, A 

0079 

00067 

051461 


ASC 

1 • S 1 

0080 

00070 

026147R 


JMP 

SYS , B 

0081 

0007 1 

051054 


ASC 

1 , R , 

0082 

00072 

026 1 7 1 R 


JMP 

.RUN 

0083 

00073 

051454 


ASC 

1,3, 

0084 

00074 

02662 1 R 


JMP 

.SET 

0085 

00075 

042054 


ASC 

1*D, 

0066 

00076 

02700 1 R 


JMP 

, DMP 

0087 

00077 

025101 


ASC 

1 , * A 

0088 

00100 

026020X 


JMP 

ABORT 

0089 

00101 

025052 


ASC 

1 , ** 

0090 

00102 

026020X 


JMP 

ABORT 

0091 

00103 

047513 

OKS 

ASC 

1 , OK 

0092 

00104 

026115R 


JMP 

MIKE 

0093 

00105 

042454 


ASC 

l.E, 

0094 

00106 

026267R 


JMP 

• ERPT 

0095 

00107 

025115 


ASC 

1 , *M 

0096 

00110 

026U2R 


JMP 

MOD, 

0097 

00111 

000000 


NOP 


0098* 






0099 

00112 

006400 

MOD, 

CLB 


0100 

00113 

07600 IX 


STB 

A77B 

0101 

00114 

02602 1 X 


JMP 

LABLE 

0102# 






0103 

00115 

002400 

MIKE 

CLA 


0104 

00116 

0720 14X 


STA 

OKFLL 

0105 

00117 

063422R 


LDA 

■D30000 

0106 

00120 

016015X 


J3B 

ETIME 

0107 

00121 

12 6000 R 


JMP 

RTTYB , I 

0108* 






0109 

00122 

063423R 

CULL 

LDA 

■ 8-3 

0110 

00123 

006404 


CLB, 

INB 

0111 

00124 

017055R 


JSB 

NGETB 

0112 

00125 

003004 


CMA , 

INA 

0113 

00126 

002003 


SZA, 

RSS 

0114 

00127 

02604 1R 


JMP 

ERROR 

0115 

00130 

073315R 


STA 

CULL 1 
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OK TYPED 

EXPECTING OK, BUT OIONT COME 
POSITION TO POINTER 

SET CULLING NUMBER 
MODEM SET 
MODEM TEST 


OPERATOR RESPONSE 
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0116 

00131 

003004 


CMA, 

INA 

0117 

00132 

001000 


AIS 


0118 

00133 

043424R 


ADA 

■0-5000 

0119 

00134 

073316R 


STA 

CULL2 

0120 

00135 

126000R 


JMP 

RTTYB , I 

0121* 






0122 

00136 

063302R 

YEAR 

LDA 

TTYDAM 

0123 

00137 

07 2027 X 


STA 

YR 

0124 

00140 

063425R 


LDA 

■ B-2 

0125 

00141 

006400 


CLB 


0126 

00142 

017055R 


JSB 

NGETB 

0127 

00143 

073251R 


STA 

MQDSX 

0128 

00144 

126000R 


JMP 

RTTYB,! 

0129* 






0130 

00145 

063252R 

SYS. A 

LDA 

, TTOSA 

0131 

00146 

002001 


RSS 


0132 

00147 

063253R 

SYS.B 

LDA 

, TTOSB 

0133 

00150 

073254R 


STA 

TTO 

0134 

00151 

06330 1 R 


LQA 

TTYDA 

0135 

00152 

073350R 


STA 

SNO 

0136 

00153 

013426R 


ANO 

■ 817 

0137 

00154 

073274R 


STA 

SPCN+3 

0138 

00155 

037330R 


ISZ 

CNTT 

0139 

00156 

003400 


CCA 


0140 

00157 

006404 


CLB, 

INB 

0141 

00160 

017055R 


JSB 

NGETB 

0142 

00161 

002003 


SZA, 

RSS 

0143 

00162 

026041R 


JMP 

ERROR 

0144 

00163 

070001 


STA 

1 

0145 

00164 

047427R 


AOB 

■ B-4 

0146 

00165 

006021 


SSB, 

RSS 

0147 

00166 

02604 1 R 


JMP 

ERROR 

0148 

00167 

072022X 


STA 

LINKS 

0149 

00170 

126000R 


JMP 

RTTYB, I 

0150* 






0151 

00171 

006404 

.RUN 

CLB, 

INB 

0152 

00172 

063425R 


LDA 

■ 0-2 

0153 

00173 

017055R 


JSB 

NGETB 

0154 

00174 

073260R 


STA 

COUNT 

0155 

00175 

100200 


OCT 

100200 

0156 

00176 

001255R 


DEF 

D60 

0157 

00177 

100200 


OCT 

100200 

0158 

00200 

001256R 


DEF 

D10K 

0159 

00201 

072023X 


STA 

MAXT 

0160 

00202 

076024X 


STB 

MAXT1 

0161 

00203 

063260R 


LDA 

COUNT 

0162 

00204 

043430R 


ADA 

10-16 

0163 

00205 

002021 


SSA, 

RSS 

0164 

00206 

026041R 


JMP 

ERROR 

0165 

00207 

063260R 


LDA 

count 

0166 

00210 

066025X 


LDB 

TIME 

0167 

00211 

007000 


CMB 


0168 

00212 

040001 


AOA 

1 

0169 

00213 

002021 


SSA, 

RSS 

0170 

00214 

02604 1 R 


JMP 

ERROR 

0171 

00215 

063431 R 


LDA 

■ 030 

0172 

00216 

100200 


OCT 

100200 





5 
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4 |> 


CONV YR TO BCD FOR MODEM 


SET OF TARS TO USE 


NUMBER TO USE 


GET NUMBER ZN BINARY 
MPY 

60 TO GET SECONDS 
MPY BY 

10,000 C# OF .1 MSEC) 
MAXIMUN TIME 

MAX IS IS MIN 


TOO MANY MINUTES 
MPY BY 

REPRODUCIBILITY OF THE 
ORIGINAL PAGE 18 POOR 
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0173 

00217 

001260R 


OEF 

COUNT 

30 FOR ACTUAL * OF POINTS 

0174 

00220 

073260R 


STA 

COUNT 


0175 

00221 

063303R 


IDA 

TTYDA*2 


0 176 

00222 

001727 


ALF, 

ALF 


0177 

00223 

013432R 


AND 

• B 1 77 


0178 

00224 

053433R 


CPA 

■ 854 

(COMMA 

0179 

00225 

002001 


RS3 


MODE IS RIGHT HALF 

0180 

00226 

026231 R 


JMP 

*«>3 

MODE IS LEFT HALF 

0181 

00227 

063303R 


IDA 

TYYDA+2 


0182 

00230 

013432R 


AND 

'■ B 1 7 7 

REDUCE MODE 

0183 

00231 

043434R 


ADA 

■B-100 

TO INTEGER 

0184 

00232 

002020 


3SA 



0 185 

00233 

02604 1R 


JMP 

ERROR 


0 186 

00234 

05342 1 R 


CPA 

■ 83 ; 

EQUIVALENT 

0187 

00235 

002004 


INA 


a«i 

0188 

00236 

072026X 


STA 

MODE 

B-2 

0189 

00237 

043435R 


ADA 

■ B*5 

C«4 

0190 

00240 

002021 


SSA, 

RSS 


0191 

00241 

026041 R 


JMP 

ERROR 

MODE ILLEGAL 

0192 

00242 

062026X 


IDA 

MODE 


0 1 93 

00243 

001722 


ALF, 

RAL 


0194 

00244 

043420R 


ADA 

«B2 


0195 

00245 

073250R 


STA 

BB283 


0196 

00246 

043420R 


ADA 

■ B2 


0197 

00247 

073247R 


STA 

BB39 


0198 

00250 

043436R 


ADA 

■ B4 


0199 

00251 

073246R 


STA 

PB27 


0200 

00252 

043437R 


ADA 

■ 08 


0201 

00253 

073245R 


STA 

8B200 


0202 

0203* 

00254 

0260 1 6X 


JMP 

TTYST 

BEGIN OPERATION 

0204 

00255 

006404 

MOSET 

CLB, 

INB 


0205 

00256 

063425R 


LDA 

■B«2 


0206 

00257 

017055R 


JSB 

NGETB 


0207 

00260 

016003X 


JSB 

MSX 


0 208 
0209* 

00261 

126000R 


JMP 

RTTYB , I 


0210 

00262 

006404 

MTEST 

CUB, 

INB 


0211 

00263 

063425R 


LOA 

■ B»2 


0212 

00264 

017055R 


JSB 

NGETB 


0213 

00265 

016004X 


JSB 

MTX 


0214 

0215* 

00266 

126000R 


JMP 

RTTYB, I 


0216 

00267 

006404 

.ERPT 

CLB, 

INB 


0217 

00270 

063425R 


LDA 

■ B-2 


0218 

00271 

017055R 


JSB 

NGETB 


0219 

00272 

002003 


SZA, 

i RSS 


0220 

00273 

002404 


CL A, 

i INA 


0221 

00274 

073264R 


STA 

SKIP 

1 ■ ■■ ■ ■ . 

0222 

00275 

062005X 


LDA 

MSG 1 


0 223 

00276 

07230 1 R 


STA 

*♦3 


0224 

00277 

063440R 


LDA 

■ D 1 4 


0225 

00300 

016030X 


JSB 

PRINT 

PRINT START TIME 

0226 

00301 

000005X 


DEF 

MSG1 


0227* 

0228 

00302 

007400 


CCB 



0229 

00303 

062026X 


LDA 

MODE 

5-169 
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0230 

00304 

053257R 


CPA 

04 


0 2 31 

00305 

040001 


ADA 

1 


0232 

00306 

043340R 


ADA 

CASCI 

CONVERT TO ASCII 

0233 

00307 

073346R 


STA 

MSG6+2 


0234 

00310 

06344 1 R 


LDA 

■ 05 


0235 

0031 1 

0 1 6030 Y 


JSB PRINT 

PRINT ''MODE” 

1? 2 3 6 

00312 

001344R 


DEF 

MSG6 


0237* 







0238 

00313 

066002X 


LDB 

MOOT 

DECODE TFMPERATURE 

0239 

00314 

047442R 


ADB 

■Dll 


0240 

00315 

017045R 


JSB 

CONV 


024 1 

00316 

073354R 


STA 

MSG7+3 


0242 

00317 

160001 


LDA 

1»I 


0243 

00320 

001727 


ALF, 

ALF 


0244 

00321 

03334 1 R 


IOR 

CANUM 


0245 

00322 

073355R 


STA 

MSG7 *4 


0246* 







0 247 

00323 

0 6 3 4 4 1 R 


LDA 

■05 


0248 

00324 

0 1 60 30 X 


JSB 

PRINT 

PRINT TEMPERATURE 

0249 

00325 

00 135 t R 


DEF 

MSG7 


0250 

00326 

062032X 


LDA 

DONE 


0251 

00327 

002020 


SSA 



0252 

00330 

002400 


CLA 



0253 

00331 

002003 


SZA, 

RSS 


0254 

00332 

1 2 6000 R 


JMP 

RTTYB, I 


0255 

00333 

006400 


CLB 



0256 

00334 

100400 


OCT 

100400 

DIV BY 

0257 

00335 

0 0 1 2 6 4 R 


DEF 

SKIP 

SKIP 

0258 

00336 

003000 


CM A 



0259 

00 337 

006003 


S Z B , 

RSS 


0260 

00340 

002004 


INA 



0261 

00341 

073261R 


STA 

CNT 

NUMBER OF LINES TO OUTPUT 

0262 

00342 

063264R 


LDA 

SKIP 


0263 

00343 

100200 


OCT 

100200 

MPY BY 

0 264 

00344 

001257R 


DEF 

D4 

FOUR 

0265 

00345 

073264R 


STA 

SKIP 

SKIP LOCATIONS 

0266 

00346 

063443R 


LDA 

■ 034 


0267 

00347 

0 1 60 30 X 


JSB 

PRINT 

PRINT HEADING 

0268 

00350 

001356R 


DEF 

OUTHD 


0269* 







0270 

00351 

062006X 


LDA 

CDA 


0271 

00352 

072360R 


STA 

REFC 


0272 

00353 

062007 X 


LDA 

tarsi 


0273 

00354 

072361R 


STA 

REF 1 


0274 

00355 

062010X 


LDA 

TARS2 


0275 

00356 

072362R 


STA 

REF2 


0276* 







0277 

00357 

01601 IX 

DOIT 

JSB 

DECOD 

DECODE DATA 

0278 

00360 

000000 

REFC 

NOP 



0279 

00361 

000000 

REFt 

NOP 



0280 

00362 

000000 

REF2 

NOP 



0 281* 







0282 

00363 

066033X 


LDB 

B570 


0283 

00364 

076442R 


STB 

ADRS 


028 4 

00365 

077275R 


STB 

LOC 


0285 

00366 

063423R 


LDA 

■ 8-3 


0286 

00367 

073263R 


STA 

CNT Y 
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0 287 

00370 

063435R 


LDA 

■ 8*5 


0288 

00371 

073262R 


STA 

CNTX 


„ 0289* 







0290 

00372 

017045R 

DONT 

JSB 

CONV 


0291 

00373 

173275R 


STA 

LOC , I 


0292 

00374 

037275R 


xsz 

LOC 


0293 

00375 

037262R 


ISZ 

CNTX 


0294 

00376 

026372R 


JMP 

DONT 


0295 

00377 

063356R 


LOA 

SPACE 


0296 

00400 

173275R 


STA 

LOC, I 


0297 

00401 

037275R 


ISZ 

LOC 

SKIP ONE 

0298 

00402 

037263R 


ISZ 

CNTY 


0299 

00403 

026370R 


JMP 

OONT-2 


0300* 







0301 

00404 

063423R 


LDA 

«B»3 


0302 

00405 

073263R 


STA 

CNTY 


0303 

00406 

063427R 


LDA 

*8-4 


0304 

00407 

073262R 


STA 

CNTX 


0305* 







0306 

00410 

160001 

DO 

LDA 

1,1 


0307 

00411 

001727 


ALF, 

ALF 


0308 

00412 

006004 


INB 



0309 

00413 

037262R 


ISZ 

CNTX 


0310 

00414 

002001 


RSS 



0311 

00415 

026424R 


JMP 

DONOT 


0312 

00416 

130001 


I OR 

1,1 


031 3 

00417 

006004 


INB 



0314 

00420 

033342R 


IOR 

CAN 


0315 

00 421 

1 7 3 2 7 5 R 


STA 

LOC, I 


0316 

00422 

037275R 


ISZ 

LOC 


0317 

00423 

026410R 


JMP 

DO 


0318* 







0319 

00424 

033343R 

OONOT 

IOR 

CANT 


0320 

00425 

173275R 


STA 

LOC, I 


0321 

00426 

037275R 


ISZ 

LOC 


0322 

00427 

037263R 


ISZ 

CNTY 


0323 

00430 

026406R 


JMP 

DO-2 


0324* 







0325 

00431 

063427R 


LDA 

■ B- 4 


0326 

00432 

073262R 


STA 

CNTX 


0327 

00433 

017045R 

MAYBE 

JSB 

CONV 


0328 

00434 

1 7 3 2 7 5 R 


STA 

LOC, I 


0329 

00435 

037275R 


ISZ 

LOC 


0330 

00436 

037262R 


ISZ 

CNTX 


0331 

00437 

026433R 


JMP MAYBE 


0332* 







0333 

00440 

063443R 


LDA 

■D34 


0334 

00441 

016030X 


JSB 

PRINT 

PRINT RESULTS OF RANGE 

0335 

00442 

000000 

AORS 

NOP 


OUTPUT DATA BUFFER SHARED WITH M 

0336* 







0337 

00443 

037261R 


ISZ 

CNT 


0338 

00444 

002001 


RSS 



0339 

00445 

1 26000R 


JMP 

RTT YB , I 


0340* 







0341* 







03 42 

00446 

052360R 


LDA 

RE Ft 


0343 

00447 

043264R 


ADA 

SKIP 
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0 34 4 

00450 

072360R 


ST A 

REFC 



0345 

00451 

06236 1 R 


LOA 

REF 1 



0346 

00452 

043264R 


ADA 

SKIP 



0347 

00453 

07 236 1 R 


STA 

REF 1 



0348 

00454 

062362R 


LOA 

REF2 



0349 

00455 

043264R 


ADA 

SKIP 



0350 

00456 

072362R 


STA 

REF2 



0351 

00457 

026357R 


JMP 

DOIT 



0352* 








0353* 








0354 

00460 

000000 

SRCH 

NOP 




0355 

00461 

067444R 


LDB 

• 0-26 



0356 

00462 

077261R 


STB 

CNT 



0357 

00463 

066502R 


LDB 

CTAB 

TABLE ADDRESS 


0358 

00464 

063302R 

SI 

LDA 

TTYUA+1 

INPUT VALUE 


0359 

00465 

150001 


CPA 

1*1 



0360 

00466 

002001 


RSS 




0361 

00467 

026475R 


JMP 

DN 

TRY NEXT ONE 


0362* 








0363 

00470 

063303R 


LDA 

TTYDA+2 



0364 

00471 

006004 


INB 




0365 

00472 

150001 


CPA 

1*1 



0366 

00473 

126460R 


JMP 

SRCH, I 

FOUND VARIABLE 


0367 

00474 

002001 


RSS 




0368 

00475 

006004 

ON 

INB 




0369 

00476 

047420R 


ADB 

*B2 



0370 

00477 

037261R 


IS2 

CNT 



0371 

00500 

026464R 


JMP 

si 



0372 

00501 

02604 1 R 


JMP 

ERROR 



0373* 








0374* 








0 37 5 

00502 

0 0 0 5 0 3 R 

CTAB 

DEF 

*+l 



0376 

00503 

052105 


ASC 

2, TEMP 

SPACECRAFT TEMPERATURE 

0 37 7 

00505 

001265R 

TSPAN 

DEF 

TEMPR 



0378 

00506 

051105 


ASC 

2 , RECD 

RANGE ESTIMATE CDA 


0379 

00510 

00 1 23 1 R 

IN0C 

DEF 

N0CD 



0 380 

0051 1 

051105 


ASC 

2 , RET 1 

RANGE ESTIMATE TARS 

1 

0381 

00513 

001235R 

IN0T1 

DEF 

N0T1 



0382 

00514 

051105 


ASC 

2 , RET2 

RANGE ESTIMATE TARS 

2 

0383 

00516 

00 1 24 1 R 

IN0T2 

DEF 

N0T2 



0 384 

00517 

051520 


ASC 

2 , SPCN 

SPACECRAFT NUMBER 


0 385 

00 521 

00 1 2 7 1 R 

SPAN 

DEF 

SPCN 



0386 

00522 

030504 


ASC 

2* 1 D T 1 

FIXED DELAY VALUES 


0387 

00524 

00 1 1 1 1 R 

F I XT l 

DEF 

• 1 DT 1 



0388 

00525 

031104 


ASC 

2 , 2DT 1 



0389 

00527 

001115R 


DEF 

• 2DT 1 



0390 

00530 

031504 


ASC 

2 , 3DT 1 



0391 

00532 

001 121 R 


DEF 

• 3 D T 1 



0392 

00533 

032104 


ASC 

2, 40T1 



0 393 

00535 

001 125R 


OEF 

• 4DT 1 



0394 

00536 

032504 


ASC 

2 , 5DT 1 



0395 

00540 

001 131R 


OEF 

- SOT 1 



0396 

00541 

030504 


ASC 

2, 10T2 



0397 

00543 

001 135R 


OEF 

, 1 DT2 



0398 

00544 

031104 


ASC 

2.20T2 



0399 

00546 

00 1 1 4 1 R 


OEF 

• 2DT2 



0400 

00547 

031504 


ASC 

2 , 30T2 
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0401 

00551 

001145R 

OEF 

• 3DT2 


0402 

00552 

032104 

ASC 

2,4DT2 


0403 

00554 

001151R 

DEF 

• 4DT2 


0404 

00555 

032504 

ASC 

2 , 5DT2 


0405 

00557 

001155k 

DEF 

.5DT2 


0406 

00560 

030504 

ASC 

2, 1DSP 


040 7 

00562 

001 161R 

DEF 

• 1 DSP 


040b 

00563 

031 104 

ASC 

2, 2 DSP 


0409 

00565 

001165R 

DEF 

• 2DSP 


0410 

00566 

031504 

ASC 

2.3DSP 


041 1 

00570 

001 171R 

DEF 

• 3DSP 


0412 

00571 

032104 

ASC 

2 » 4DSP 


0413 

00573 

001 175R 

DEF 

.4DSP 


0414 

00574 

032504 

ASC 

2.5DSP 


0415 

00576 

00 1 20 1 R 

DEF 

. 5DSP 


0416 

00577 

030504 

ASC 

2* 1DTR 


0417 

00601 

001205R 

DEF 

• 1 DTR 


0416 

00602 

031104 

ASC 

2.2DTR 


0419 

00604 

00 1 2 1 1 R 

DEF 

.2DTR 


0420 

00605 

031504 

ASC 

2 , 3DTR 


0421 

00607 

001215R 

DEF 

, 3DTR 


0422 

00610 

032104 

ASC 

2,4DTR 


0423 

00612 

001221R 

DEF 

.4DTR 


0424 

00613 

032504 

ASC 

2 » 5DTR 


0425 

00615 

001225R 

DEF 

. 5DTR 


0 426 

00616 

040514 

ASC 

2 , ALLX 


0427 

00620 

000000 

NOP 



0428* 






0429 

00621 

016460R 

.SET JSB 

SRCH 

CHECH FOR LEGAL VARIABLE 

0430 

00622 

006004 

INB 


POINT TO ADDRESS OF VARIABLE 

0431 

00623 

160001 

LDA 

1 1 1 


0432 

00624 

002003 

SZA, 

RSS 


0433 

00625 

026762R 

JMP 

SALL. 


0434 

00626 

073275R 

STA 

LOC 


0435 

00627 

05252 1 R 

CPA 

SPAN 

CANNOT CHG SPACECRAFT NO, 

0436 

00630 

02604 1 R 

JHP 

ERROR 


0437* 






0438* 

DAT A 1 

S, VVVV, 

(VALUE) , 



0439* 






0440 

00631 

002400 

CLA 


INITIALIZE 

0441 

00632 

073336R 

STA 

SIGN 


0442 

00633 

073337R 

STA 

SYNC 


0443 

00634 

067040R 

LDB 

V1X 

DEF TTYDA 

0444 

00635 

077333R 

8 TB 

VI 


0445 

00636 

063423R 

LDA 

■ B-3 


0446 

00637 

016031X 

JSB 

clear 


0447 

00640 

063445R 

LDA 

■ D* 1 2 


0448 

00641 

073335R 

STA 

EXP 


0449 

00642 

043425R 

ADA 

■D*2 


0450 

00643 

073261R 

STA 

CNT 


0451 

00644 

062761R 

LDA 

.ISZ. 


0452 

00645 

072723R 

STA 

OPTON 


0453 

00646 

063427R 

LDA 

*0-4 


0454 

00647 

073334R 

STA 

SHIFT 

SHIFT COUNTER 

0455* 






0456 

00650 

0673 1 4R 

LDB 

TTYBF 

DEF TTY0A*3 

0 457 

00651 

077276R 

STB 

REF 
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PACE 

0010 i 
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* 


0458 

00652 

160001 


LDA 

ill 


0459 

00653 

013432R 


AND 

*B 1 7 7 


0460 

00654 

053446R 


CPA 

*855 

(•0 MINUS 

0461 

00655 

02666 1 R 


JMP 

SIX 


0462 

00656 

053447R 


CPA 

■ B53 

(♦) PLUS 

0463 

00657 

026665R 


JMP 

S3 

IGNORE 

0464 

00660 

02670 1 R 


JMP 

PUTIT 


0465* 







0466 

00661 

037336R 

SIX 

ISZ 

SIGN 


0467 

00662 

0 2 6 6 6 5 R 


JMP 

S3 


0468 

00663 

002400 

S2 

CLA 



0469 

00664 

072723R 


STA 

OPTON 

STOP UPDATING EXPONENT 

0470* 







0471 

00665 

037337R 

S3 

ISZ 

SYNC 


0472 

00666 

063337R 


LDA 

SYNC 


0473 

00667 

000010 


SLA 



0474 

00670 

026674R 


JMP 

S4 

1 LEFT HALF 

0475 

00671 

06333 1 R 


LDA 

SAVE 

0 RIGHT HALF . 

0476 

00672 

0 1 3 4 3 2 R 


AND 

*B 1 7 7 


0477 

00673 

026701R 


JMP 

PUTIT 


0478 

00674 

037276R 

S4 

ISZ 

REF 


0479 

00675 

163276R 


LDA 

REF, I 


0480 

00676 

07 333 1 R 


STA 

SAVE 


0481 

00677 

001727 


ALF, 

ALF 


0482 

00700 

013432R 


AND 

•B 1 77 


0483 

00701 

053450R 

PUTIT 

CPA 

*B56 

C.) DECIMAL POINT 

0484 

00702 

026663R 


JMP 

S2 


0485 

00703 

05345 1 R 


CPA 

■B40 

( ) SPACE TERMINATOR 

0486 

00704 

026736R 


JMP 

EXIT 


0 487 

00705 

053433R 


CPA 

"B54 

(,) COMMA TERMINATOR 

0488 

00706 

0 2 6 7 3 6 R 


JMP 

EXIT 


0489 

00707 

04S452R 


ADA 

*8«*60 

CONVER TO BCD- 

0 490 

00710 

070001 


STA 

1 


0491 

0071 1 

047453R 


ADB 

■D-10 


0492 

00712 

006021 


SSB, 

RSS 


0493 

00713 

02604 1 R 


JMP 

ERROR 

ILLEGAL POINT 

0494* 







0495 

00714 

067334R 


LOB 

SHIFT 


0496 

00715 

006007 


INB, 

SZ8 , RSS 


0497 

00716 

0267 2 1 R 


JMP 

*♦3 


0498 

00717 

001700 


ALF 



0499 

00720 

0 2 6 7 1 5 R 


JMP 

*«3 


0500 

00721 

133333R 


I OR 

VI, I 


0 501 

00722 

173333R 


STA 

VI, I 


0 50 2 * 







050 3 

00723 

037335R 

ORTON 

ISZ 

EXP 

INCREMENT EXPONENT COUNT 

0 50 4 

00724 

000000 


NOP 



0505 

00725 

0 3 7 2 6 1 R 


ISZ 

CNT 

INCREMENT OIGIT COUNT 

0506 

00726 

002001 


RSS 



0 507 

00727 

02604 1 R 


JMP 

ERROR 

TOO MANY POINTS 

0 508 

00730 

037334R 


ISZ 

SHIFT 


0509 

00731 

026665R 


JMP 

S3 


0 510 

00732 

0 3 7 3 3 3 R 


ISZ 

VI 

UP DATE BCD POINTER 

0511 

00733 

063427R 


LDA 

*0-4 


0512 

00734 

073334R 


STA 

SHIFT 


0 5 1 3 

00735 

026665R 


JMP 

S3 
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PAGE 

0011 t 

»01 * T 1 

’Y HANDLER 

* 

0515 

00736 

063335R 

EXIT 

LDA 

EXP 

0516 

00737 

002021 


SSA, 

RSS 

0517 

00740 

026743R 


JMP 

El 

0518 

00741 

003004 


CMAi 

1NA 

0519 

00742 

033454R 


IOR 

■B200 

0520 

00743 

001727 

El 

ALF, 

ALF 

0521 

00744 

043336R 


ADA 

SIGN 

0522 

00745 

173275R 


STA 

LOC, I 

0523* 






0524 

00746 

063423R 


LDA 

■ B-3 

0525 

00747 

073334R 


STA 

SHIFT 

0526 

00750 

037275R 


ISZ 

LOC 

0527 

00751 

067040R 


LOB 

V1X 

0528 

00752 

160001 

SAVIT 

LDA 

1,1 

0529 

00753 

1 7 3275R 


STA 

LOC, I 

0530 

00754 

006004 


INB 


0531 

00755 

037275R 


ISZ 

LOC 

0532 

00756 

037334R 


isz 

SHIFT 

0533 

00757 

026752K 


JMP 

SAVIT 

0534 

00760 

126000R 


JMP 

RTTYBil 

0535* 






0536 

00761 

037335R 

.isz. 

ISZ 

EXP 

0537* 






0538 

00762 

063. 35R 

SALL, 

LDA 

■ D-25 

0539 

00763 

073261R 


STA 

CNT 

0540 

00764 

066502R 


LOB 

CTAB 

0541 

00765 

047420R 

SAL1. 

AOB 

■02 

0542 

00766 

077037R 


STB 

WILD 

0543 

00767 

164001 


LOB 

1,1 

0544 

00770 

056521R 


CPB 

SPAN 

0545 

00771 

026774R 


JMP 

*♦3 

0546 

00772 

063427R 


LDA 

• D»4 

0547 

00773 

0 1 6031 X 


JSB 

clear 

0548 

00774 

067037R 


LDB 

WILD 

0549 

00775 

006004 


INB 


0550 

00776 

037261R 


ISZ 

CNT 

0551 

00777 

026765R 


JMP 

SAL1, 

0552 

01000 

1 26000R 


JMP 

RTTYB , I 

0553* 






0554* 






0555 

01001 

016460R 

, DMP 

JSB 

SRCH 

0556 

01002 

006004 


INB 


0557 

01003 

160001 


LDA 

1*1 

0558 

01004 

073037R 


STA 

WILD 

0559 

01005 

002002 


SZA 


0560 

01006 

027036R 


JMP 

WILD-1 

0561 

01007 

066502R 


LDB 

CTAB 

0562 

01010 

063455R 


LDA 

• 0-25 

0563 

01011 

0 7 3 2 6 1 R 


STA 

CNT 

0564 

01012 

077015R 


STB 

MILD 

0565 

01013 

063420R 


LOA 

■02 

0566 

01014 

016030X 


JSB 

PRINT 

0567 

01015 

000000 

mild 

NOP 


0568 

01016 

067015R 


LDB 

MILD 

0569 

01017 

047420R 


ADB 

■ D2 

0570 

01020 

160001 


LDA 

1*1 

0 571 

01021 

073023R 


STA 

*♦2 
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PLUS EXPONENT 
NEGATIVE EXTRAPOLATION 


UPDATE STUFF POINTER 


SET ALL INITIAL VALUES TO 0,0 
CANNOT RESET SPACECRAFT NO, 
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0572 01022 

0573 01023 

0574 01024 

0575 01025 

0576 01026 

0577 01027 

0578 01030 

0579 01031 

0580 01032 

0581 01033 

0582 01034 

0583 01035 
0 584* 

0585 01036 

0586 01037 

0587 01040 
0588* 

0589 01041 

0590 01042 

0591 01043 

0592 01044 


016012X 
000000 
00 1 30 1 R 
063456R 
0 1 60 30 X 
00 1 30 1 R 
067015R 
047 42 1 R 
077015R 
03726 1 R 
027013R 
126000R 

0 1 60 1 2 X 
000000 WILD 
00 1 30 1 R V 1 X 

063456R 
0 1 60 30 X 
00 1 30 1 R 
126000R 


J SB 

DDTA 

NOP 


DEF 

TTYOA 

LDA 

■ D9 

J3B 

PRINT 

DEF 

TTYDA 

LOB 

MILD 

AOB 

»D3 

STB 

MILO 

I sz 

CNT 

JMP 

MILO-2 

JMP 

RTTYB, I 

JSB 

DDTA 

NOP 


DEF 

TTYDA 

LOA 

*D9 

JSB 

PRINT 

DEF 

TTYDA 

JMP 

RTTYB, I 


PRINT VARIABLE VAJUE 


0594 01045 

0595 01046 

0596 01047 

0597 01050 

0598 01051 

0599 01052 

0600 01053 

0601 01054 


000000 CON V 
160001 
001727 
006004 
130001 
006004 
033342R 
127045R 


NOP 

IDA 1,1 

alf,alf 

INB 

I OR 1,1 
INB 

1QR CAN 
JMP CONV , I 


0603 01055 

0604 01056 

0605 01057 

0606 01060 

0607 01061 

0608 01062 

0609 01063 

0610 01064 

0611 01065 

0612 01066 

0613 01067 

0614 01070 

0615 01071 

0616 01072 

0617 01073 

0618 01074 

0619 01075 

0620 01076 


000000 NGET8 
07332 1 R 
077320R 
002400 
073323R 
163317R AG 
067330R 
00601 1 
001727 
013432R 
043452R 
002020 
027104R 
067323R 
005700 
030001 
0 7 3 3 2 3 R 
067 3 30 R 


NOP 


STA 

CHAR 

STB 

Z 

CLA 


STA 

BCD 

LDA 

ZBUF, I 

LDB 

CNTT 

SLB, 

RSS s 

ALF, 

ALF 

AND 

*B 1 7 7 

ADA 

■ B-60 

SSA 


JMP 

F INI 

LOB 

BCD 

BLF 


10R 

1 

STA 

BCD 

DOB 

CNTT 

5 - 
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0621 01077 

0622 01100 

0623 01101 

0624 01102 

0625 01103 

0626 01104 

0627 01105 
0626 01106 

0629 01107 

0630 01110 


037330R 
004010 
037317P 
037321R 
027062R 
063323R F INI 
067320R 
006002 
016013X 
127055R 


ISZ CNTT 
SLB 

ISZ 7BUF 
ISZ CHAR 
JMP AG 
LDA BCD 
LDB Z 
8ZB 

JSB BCDBI 
JMP NGETB f I 
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0632 

01111 

000000 

• 10T1 

BSS 

4 

0633 

01115 

000000 

.2DT1 

BSS 

4 

0634 

01121 

000000 

• 3DT 1 

BSS 

4 

0635 

01125 

000000 

• 4DT1 

BSS 

4 

0636 

01131 

000000 

■ 5DT 1 

BSS 

4 

0637 

01135 

000000 

* 10T2 

BSS 

4 

0638 

01141 

000000 

• 2DT2 

BSS 

4 

063S 

01145 

000000 

*3DT2 

BSS 

4 

0640 

01151 

000000 

.4DT2 

BSS 

4 

0641 

01155 

000000 

• 5DT2 

BSS 

4 

0642 

01161 

000000 

• 1 DSP 

BSS 

4 

0643 

01165 

000000 

.2DSP 

BSS 

4 

0644 

01171 

000000 

• 3DSP 

BSS 

4 

0645 

01175 

000000 

• 4DSP 

BSS 

4 

0646 

01201 

000000 

• 5D8P 

BSS 

4 

0647 

01205 

000000 

• 1DTR 

BSS 

4 

0648 

01211 

000000 

.2DTR 

BSS 

4 

0649 

01215 

000000 

• 30TR 

BSS 

4 

0650 

01221 

000000 

,40TR 

BSS 

4 

0651 

01225 

000000 

• 5DTR 

BSS 

4 

0652 

01231 

000000 

N0CD 

BSS 

4 

0653 

01235 

000000 

N0T1 

BSS 

4 

0654 

01241 

000000 

N0T2 

BSS 

4 

0655* 






0656 

01245 

000000 

BB200 

NOP 


0657 

01246 

000000 

BB27 

NOP 


0658 

01247 

000000 

BB39 

NOP 


0659 

01250 

000000 

BB283 

NOP 


0660 

01251 

000000 

MODSX 

NOP 


0661 

01252 

040200 

TTOSA 

OCT 

40200 

0662 

01253 

020200 

TTOSB 

OCT 

20200 

0663 

01254 

020200 

TTO 

OCT 

20200 

0664 

01255 

000074 

060 

OEC 

60 

0665 

01256 

023420 

D10K 

DEC 

10000 

0666 

01257 

000004 

04 

DEC 

4 

0667 

01260 

000000 

COUNT 

NOP 


0668 

01261 

000000 

CNT 

NOP 


0669 

01262 

000000 

CNTX 

NOP 


0670 

01263 

000000 

CNTY 

NOP 


0671 

01264 

000000 

SKIP 

NOP 


0672 

01265 

000000 

TEMPR 

BSS 

4 

0673 

01271 

000000 

SPCN 

OCT 

0i0,0,0 

0674 

01275 

000000 

LOC 

NOP 


0675 

01276 

000000 

REF 

NOP 


0676 

01277 

025052 

XXX 

ASC 

1,** 

0677 

01300 

020137 


OCT 

20137 

0678 

0 1 30 1 

020040 

TTYDA 

ASC 

11# 

0679 

01314 

001304R 

ttybf 

DEF 

TTYDA+3 

0680 

01315 

000000 

CULL 1 

NOP 


0681 

01316 

000000 

CULL2 

NOP 


0682 

01317 

000000 

ZBUF 

NOP 


0683 

01320 

000000 

Z 

NOP 


0684 

01321 

000000 

CHAR 

NOP 


0685 

01322 

001302R 

TTYB 

DEF 

TTYO A+ 1 

0686 

01323 

000000 

BCD 

NOP 


0687 

01324 

042522 

MSG 

ASC 

3, ERROR 

0688 

01327 

000000 

TTYM 

NOP 
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0689 

01330 

000000 

CNTT 

NOP 



0690 

01331 

000000 

SAVE 

83 8 

2 


0691 

01333 

000000 

VI 

NOP 



0692 

01334 

000000 

SHIFT 

NOP 



0693 

01335 

000000 

EXP 

NOP 



0694 

01336 

000000 

SIGN 

NOP 



0695 

01337 

000000 

SYNC 

NOP 



0696 

01340 

020100 

CASCI 

OCT 

20100 


0697 

01341 

030106 

CANUM 

OCT 

30106 


0698 

01342 

030060 

CAN 

OCT 

30060 


0699 

01343 

030040 

CANT 

OCT 

30040 


0700 

01344 

046517 

MSG6 

A SC 

3, MODE 


0701 

01347 

020040 


ASC 

If 


0702 

01350 

020040 

SNO 

ASC 

1 f 


0703 

01351 

052105 

MSG7 

ASC 

5, TEMP 


0704 

01356 

020040 

OUTHD 

ASC 

18, ROD A 

RTARS1 RTARS2 

0705 

01400 

051056 


ASC 

1 2 , R ,CDA 

R. TARSI R.TARS2 

0706 

01414 

05211 1 


ASC 

4, TIME TAG 


0707 

01356 


SPACE 

EQU 

OUTHD 


0706 




UNS 




01420 

000002 






01421 

P00003 






01422 

072460 






01423 

177775 






01424 

166170 






01425 

177776 






01426 

000017 






01427 

177774 






01430 

177760 






01431 

000036 






01432 

000177 






01433 

000054 






01434 

177700 






01435 

177773 






01436 

000004 






01437 

000010 






01440 

000016 






01441 

000005 






01442 

000013 






01443 

000042 






01444 

177746 






01445 

177764 






01446 

000055 






014:47 

000053 






01450 

000056 






01451 

000040 






01452 

177720 






01453 

177766 






01454 

000200 






01455 

177747 






01456 

000011 





0709 




END 



** NO ERRORS! AMD 
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5-179 


VOLUME I. CDA SYSTEM MANUAL 


APPENDIX A. TRRR OPERATIONAL MODES 


A . 1 INTRODUCTION 

The measurement of range with discrete tones is based on a priori 
knowledge of the two-way range to at least ±1/2 wavelength of the tone being 
used for the measurement. This is necessary since the measurement tech- 
nique does not measure propagation time but phase delay which is always 
ambiguous to some multiple of 2tt. Therefore, it is necessary to remove 
this ambiguity by at first estimating the two-way range to ±1/2 wavelength 
for the lowest tone, and then by design, each tone measurement will yield 
a range accurate to a small fraction of the wavelength of the next higher 
tone . 


After the first initial measurement of the range using all the tones, 
succeeding measurements are made using only the highest tone. Each 
preceding range measurement is used as an estimate of the next range 
measurement. A maximum of 15 minutes of ranging data can be taken and 
processed by the computer program. 

Finally, after the last range measurement, the lower tones are 
cycled through once again to obtain an unambiguous final range. If the 
unambiguous measurement does not agree with the final range measurement 
(obtained by using the previous measurement to eliminate ambiguity), all 
intervening range measurements should be scrutinized for a possible 
wavelength error. 

In order to determine the position of the satellite as a function of 
time, each range measurement must be accurately time-tagged. A time 
tag is assigned to each range measurement at the time of measurement; 
however, the range information has been retarded by the speed of light 
which necessitates a correction in either the time tag or the range. This 
program corrects the range by adding or subtracting a term proportional 
to the measured two-way range rate. 

The description of the logic for the range program is divided into 
the following parts : 

1) Constants necessary to calculate range 

2) System loop calibration 


VOLUME I. CDA SYSTEM MANUAL 


3) Ambiguity removal by the lower tones 

4) Range determination using prior measurements to eliminate 
ambiguity 

5) Time tag 

6) Range rate and range correction 

7) Range endpoint check 


A. 2 NUMERICAL CONSTANTS IN RANGE PROGRAM 

Table A-l indicates the tone frequencies and their respective 
periods. The tones are obtained by dividing a 5 MHz oscillator by integral 
numbers; hence, their respective periods are rational numbers as opposed 
to the frequency. Table A-l lists the range frequencies and their periods 
since the range measurement is calculated in terms of time. 


A. 3 SYSTEM LOOP CALIBRATION 

At the beginning of each range measurement, the ranging equipment 
is calibrated by looping the transmit IF to the receiver. This calibration 
is handled by a software routine which switches all receivers to a 66 MHz 
center frequency. Each tone is counted sequentially and those delays are 
used to update the program utilized to calculate the satellite range. 


TABLE A-l 


T one 


Period 

200. 00 

kHz 


5. Ox 10 ^ sec 

27. 777 

kHz 


3.6x10 ^ sec 

3. 9682 

kHz 


2. 52 x 10 ^ sec 

283.44 

Hz 


3. 528 x 10~ 8 sec 

35.43 

Hz 


2. 8224 x 15“ 2 sec 

Speed of light in vacuum 2. 997924562 x 10 8 m/s ± 10 x 10 8 m/s 

(NBS - 1972) 



VOLUME I. CDA SYSTEM MANUAL 


A. 4 AMBIGUITY REMOVAL BY LOWER TONES 

In order to utilize the tone system of ranging, the one-way range 
must be known to an accuracy of better than ±1/2 of a wavelength of the 
lowest frequency tone utilized for the measurements. There are three 
modes used for ranging, and they are listed in Table A-2. Additionally, the 
modulation index for each tone, the modulation loss factor for conversion of 
C/N to S/N, the number of total axis crossings counted in the measurement, 
and the phase error given in seconds, for a nominal receive C/N o ~50. 76 is 
presented in this table. 

Mode A will normally be used for ranging. This requires the 
one-way range from the satellite to TARS I, II, and the CDA is known to 
an accuracy of 2. 12 x 106 meters or 6 percent of synchronous altitude. 

For utilization of Modes B and C, the one-way range must be known 
to an accuracy of 2, 5 x 10" * and 1.89 x 10~2 percent of synchronous altitude, 
respectively. If Mode A is selected, the lower tones are simultaneously 
transmitted and the returned signal is counted for the indicated number of 
axis crossings of each tone. These measurements are used to remove the 
ambiguity associated with the 200 kHz measurement. After measurements 
with Mode A are complete, the 200 kHz tone is modulated on the carrier and 
transmitted continuously for the desired ranging interval. The switching 

TABLE A-2 




Mod Index 

Mod Loss, dB 

Total Counts 

Mode A 

35. 46 

Hz 

1.5 

-7 

100 

283.4 

Hz 

1.5 

-2.2 

100 

3.968 

kHz 

1.5 

-2.2 

1000 

27. 77 

kHz 

1. 5 

-2. 2 

1000 

200. 0 

kHz 

1. 5 

- 2.2 

3000 

Mode B 
283.4 

Hz 

1.5 

' -2.2 \ 

100 

3. 968 

kHz 

1. 5 

-2. 2 ' 

1000 

27. 77 

kHz 

1. 5 

-2. 2 

1000 

200. 0 

kHz 

1. 5 

-2. 2 

3000 

Mode C 

3. 968 

kHz 

1. 5 

-2. 2 

1000 

27. 77 

kHz 

1.5 

-2. 2 

1000 

200. 0 

kHz 

1. 5 

-2.2 

3000 
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interval between tones should not exceed 13.6 seconds in order to avoid 
range rate errors during those periods when the satellite is moving with 
maximum range rate. 

A. 5 RANGE DETERMINATION USING PRIOR MEASUREMENTS TO 
ELIMINATE AMBIGUITY 

After the range ambiguity is removed by the lower ranging tones, 
all further range measurements are obtained with the 200 kHz tone. These 
measurements are approximately 3 seconds apart and consist of an average 
of 3000 axis crossings of the 200 kHz tone. Each range measurement, after 
the first, is obtained by using the preceding measurement as an estimate to 
remove the ambiguity associated with the 200 kHz phase measurement. The 
software program has been designed so that if the measurement disagrees 
250 ns, the measurement is rejected. The purpose of this rejection is to 
exclude those range measurements that take place when the phase measure- 
ment is going from 360 to 0 degrees. Averaging during this time will cause 
errors that could be progressively added to the remaining measurements. 

In order to avoid this, errors greater than 250 ns second are rejected. If 
less than 2 50 ns second, they will not influence succeeding measurements, 
which is the ultimate purpose of this rejection routine. The erroneous 
range measurements that do pass this test will be subsequently culled by 
a least square fit in the trilateration software routines stored at Suitland, 
Virginia. 

A. 6 TIME TAG 

The time tag at which each range measurement is recorded by an 
internal oscillator within the HP 2100 A computer. The time tags are 
differential time measured from the station standard time which starts the 
time measurement at the beginning of the range measurement. Since the 
range measurements are the result of averaging three groups of 1000 axis 
crossings of the 200 kHz tone, the time tag is taken at the midpoint of the 
second group of measurements. This is determined by measuring the time 
at the beginning and end of this particular group of 1000 measurements, and 
taking the average. Computer cycle time (5 x 10-6 sec) is not accounted 
for in this measurement since the time tag accuracy is only necessary to 
±0. 1 millisecond. The time tag is printed out with* each range measurement. 


A. 7 RANGE RATE 

The range rates on each of the three ranging links for the trilateration 
are computed by subtracting adjacent range measurements and dividing by the 
difference in time tags. Thirty range rate measurements are then averaged. 
The range rate is then utilized to correct the range as shown in the addendum 
to this appendix. 
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A . 8 RANGE ENDPOINT CHECK 

At the end of the range measurements, Mode A is again switched on 
to remove ambiguity. Hence, the last range measurement is computed by 
using the preceding range measurement for ambiguity removal and by using 
the lower tones. If these two measurements do not result in identical 
ranges, an error of one 200 kHz wavelength has probably occurred during 
the range measurements. A warning is printed out on the teletype to 
indicate this . 
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ADDENDUM TO APPENDIX A 


INTRODUCTION 

The objective of the TRRR program is to predict the position 
coordinates of the SMS satellite to within several hundred meters over a 
24 hour period. The prediction is based on range and range rate measure- 
ments to the satellite which are obtained a few times a day. As a design 
goal of the project, the two-way range measurements are specified to be 
accurate to within 3 meters, In order to achieve this accuracy, the ranges 
or the time tags of the range measurements must be corrected for the 
retardation of the range information by the speed of light. 

The correction must be in terms of the physical variables that are 
measured during the ranging period. Although there are several ways to 
derive this correction, the following method expresses it as a function of 
the measured range and range rate. The range was chosen to be corrected 
instead of the time tag of the range measurement because as a consequence 
the three range measurements will have a simultaneous time tag and the 
trilateration solution for the spacecraft position will be independent of curve 
fitting . 


RANGE CORRECTION DUE TO SATELLITE MOTION 

The round trip propagation time for the RF signal is defined to be 


t 

r 


= t -ft -ft + t 
4 7 3 4 


(i) 


where 

t ^ ~ propagation time up to the satellite from the ground station 

t ^ = propagation time from the satellite down to the turn-around 
station 

t^ - propagation time from the turn-around station to the satellite 
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t = propagation time from the satellite to the ground station 
t = total round-trip propagation time 

Referring to Figure A-l, the round-trip time t r may be given in 
terms of the ranges Ri and R;?. 


t 

r 


R Z R 0 + R (t. + L) R,t t R. 
l_ 2 2 1 2 1 r 1 

c c c 


( 2 ) 


R j and Rg are thi ranges between the earth station and satellite and the 
turn-around station and satellite, respectively, at the time of emanation of 
the RF signal from the earth station. R\ and are the range rates , which 
are assumed constant during the measurement period of 1/2 second. The 
measured range from the earth station to the turn-around station via the 
satellite is obtained by multiplying the round-trip time t r by the speed of 
light and dividing by two. 


R 


m 


t .C/2 
r 


= Rj + R 2 + R 2 (t.j + t 2 ) +-~ (3) 

where R m is the measured range to the turn-around station. The range to 
the turn-around station at the time of measurement (when the RF signal 
returns to the earth station) is given by 

R i - Hj + * 2 + t r (Rj + R 2 ) (4) 

R^ = instantaneous range to the turn-around station. 


The difference between the instantaneous range and the measured range is 
given by 


t 

r 


R, - R * R * t - R. y * (t. + tj + R. < _ 
i m 2 r 2 1 2 12 
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Figure A-l. Round Trip 
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•*> 

Since 


= t, + t., + t„ + t, + 


R . ! ' ; t 

1 r 


then 


t 


1 



t R,*t 
r 1 r 

2 ' 2C 


( 6 ) 


Thus 


R. - R 
x m 


— (R 2 +Kj +r 2 «R,/C) 


(7) 


The range rates for the SMS propagation links arc 30 m/s at maximum, 
Therefore 


R R , u , n 2 / 

2 1 . 9 x 10 0 1n -6 , 

“ =3x10 m/ sec 


c o ln B 

3x10 


This term causes a correction to the range of about 10"^ meter and can be 
discarded. Hence 


R . = R + (R , + RJ * t 
i m 1 2 7 r 

2 


(B) 


= R + R t 
m m r 


(9) 


R = total range rate on the RF link 
m 
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Formula 9 indicates that the measured range can be corrected for the motion 
of the satellite by either adding to the measured range the quantity Rm(^r/^ 
or by correcting the time tag of the range measurement by subtracting t r /Z. 
For the TRRR program, the range is corrected instead of the time tag in 
order to obtain simultaneous range information from all three links. 

The range for the TRRR program is given in terms of one-way 
propagation time. Hence the corrected propagation time is 


R t 

fc r " (1 + ~c“>T 


( 10 ) 


The propagation time to the satellite should be measured to an accuracy of 
10~8 second; hence any error associated with the corrective term in 
Equation 10 should be less than 10-9 second. 



6 R t q 

-g 2 -# < 10 


second 


6 R < 
m 


10 * 


sec 0, 2C 


0 . 5 second 


<4x10 


m/ sec 


Hence the range rate should be measured with an accuracy of better than 
4 x 10" 1 m/sec in order to correct the propagation time without influencing 
the accuracy of the measurement. This accuracy is well within the capability 
of the range rate measurement. 

In summary, the measured one-way propagation time should be 
corrected by the following: 


CDA to SMS link 

t 1 ( 1+H 1 ) 

1/2 


r m 


CDA to Chile link 

2 * 2 
t <14R ) 

1/2 


r ' m 


CDA to Hawaii link 

3 V- 3 

t (14R ) 

r ' m 

1/2 


The superscript on the above corrected range refers to times and range 
rates measured for that particular link. 
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APPENDIX B. TARS ANTENNA ALIGNMENT PROCEDURE 


This procedure is used to align the TARS antenna. The field tech- 
nician should first align their receive antenna (use same procedure described 
here) at the time the satellite crosses the equatorial plane. The transmit 
antenna should be initially set to approximately the same azimuth and 
elevation as the receive TARS antenna. The operator at the CDA will set 
up the Hewlett-Packard spectrum analyzer (using the 8553B RF section and 
8552B IF section) with the instrument readings listed below. The analyzer 
will be connected to the receive IF at the CDA. 

*B and wid th 30 kHz 

^Scanwidth 1 MHz/div 

Video filter 10 Hz 

Scan mode Internal 

*Scan time/division sec 

*Log reference scale 10 db 

Scan trigger - Auto 

Writing speed - Standard 

Adjust persistence and intensity for a proper display. 

Depending on which TARS is being aligned, turn the coarse tune 
frequency scale to 68. 2 or 70.2 MHz. The transmit signal from the TARS 
should be visible on the analyzer (identify by commanding the TARS on arid 
off). Reduce the scanwidth to 10 kHz per division, keeping the signal at the 
center frequency of the display. Reduce the bandwidth to 10 kHz. 

Now, with the display at center frequency, turn the scanwidth dial to 
zero scan. Adjust the fine frequency tune so that the straight line display 
moves up on the vertical scale to maximum (see to Figure B -1). Turn the 
log reference level to linear and again adjust the fine tune for a maximum 
signal on display. Adjust scan time to 50 ms /division. Readjust 
intensity if necessary. Finally, one is ready to adjust the. TARS transmit 
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b) MANUAL FREQUENCY SCAN 


FIGURE B-1. MANUAL VERSUS SWEPT DISPLAY OF RETURN SIGNAL 
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antenna. Have the field technician adjust the azimuth for maximum signal 
on the display. Return to the azimuth adjustment and over the orderwire 
mark the points on the antenna screw where the technician (at the CDA) 
observes the signal to fall 2 scale divisions below the maximum signal. The 
antenna azimuth should be set at the midpoint of the screw markings. The 
same procedure should be followed for the antenna elevation. 

Finally, the car rie r - to -noise (C / No) density should be measured . With 
the 10 kHz bandwidth setting, the C/N 0 may be approximately measured by 
using the fine frequency tune dial to measure the difference between the 
peak and alley of the signal. In order to proceed with this measurement, 
flip the log reference level from linear to 10 dB and readjust the attenuator 
setting to obtain a display. Add 40 dB to the measured difference to obtain 
the C/N 0 . The result should be close to 60 db. 

Measure C/N 0 again, six hours from the equatorial cros sing. ForSMSA 
the ratio should drop by approximately 3 dB . If it drops significantly less 
or more, the antennas have not been properly centered. 

SUMMA RY 


The Hughes Aircraft Company interface specifications are as follows: 
Computer output to modem 


Type of signal 


Serial bit stream 


Signal level 
Bit rate 
Frame length 


0 to 5 volts TTL 
1800 laps 
800 words 


Word length 4 bits 

Synchrous pattern length 8 words 

Starting with word number 8, every other word will be complimented 
before being sent across modem. For example, if data words 8,9, 10, and 
11 were 0001, 0010, 0011, 0100, they would be sentas 1110, 0010, 0011, 0100. 

The data timing will be provided by the modem that must have a data 
request line to the Hughes interface to indicate the modem is ready for the 
next word. See Table 5-1 in Section 5, TRRR Software System, for word 
allocation list. 
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